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| BASSSREC_PROC 18. ep-1984 01:01: AX-11 Bliss-32 V4.0-74 Pa 1 
12-88-1982 94:93:38 EBASRTL SRE BASRECPRO.B52;1 ” (1) 
1 MODULE BASSSREC_PROC ( ' Record processing Level of abstraction 
03 “IDENT = "1-095" i Files BRSRECPRO B35 Fale moe O95 
= 


BEGIN 
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:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY i" ACCORDANCE WITH ER F SUCH L Ain ME OL. | 


SER 


:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE THE 
:* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: eORPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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++ 
FACILITY: BASIC Support Library - not user callable 
ABSTRACT: 


Ww 


This module implements the record processing level of 
abstraction which is the 5rd level and is called only from 
the user data formatter level (2nd level) when the user 


ooooo°° o 
sssssssssssssssssesossososoososososooseso 


¢ ! 

i] 

i 
3 

' 
3 ! 
3 3 
3 0037 1: portion of a record buffer is full (WRITE) or empty 
3 0038 : (READ). This module adds any per record Formatting (as 
3 0039 ! distinguished from per I/0 statement or per 1/0 List elenent 
4 0040 : formatting) and then calls RMS ($PUT or SGET). RMS errors 
: Bee } are converted to BASIC errors and are signaled. 
r} Goe§ ENVIRONMENT: User access mode; AST level or not. 
Z 004s AUTHOR: Donald G. Petersen; CREATION DATE: 16-Mar-78 
4 G04? ; MODIFIED BY: 
49 § i 0-61 = Add ATTEMPT TO READ NON-EXISTANT RECORD error to seq. reads. 
50 050 ‘ JMT 02-Jan-78 
51 51 ! Donald G. Petersen, 16-Mar-78 : VERSION 1-01 
26 b3¢ ! 1-01 = original DGP 
5 05 : 1~36 - snange to JSB Linkages. DGF 14-Nov-78 
28 054 ! 1-004 - Update copyright no ge and add device names to REQUIRE 
5 055 ‘ les. JBS 29-NOV-7 : 

26 B26 ! 1-005 - aga BASSE COUN to support the Basic RECOUNT function. DGP 
5 005 : 03-Dec-78 
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ce: WeSeoct98s O1:00:N2  YaRSHY OLtsgcde uta teraz 


3 28 8 1! 1-006 - Dot problem in BASSRECOUNT oer 04-Dec-78 

; 1 | 1-007 - Add fudge factor to o RECOUNT tor the Line terminator if input is 

; 60 be 1! from ° gray pet rT 4-Dec- 

3; «€66} 61 1! I< oe = Chang weoul e names from FOR... to PREF: ‘i 07-DEC-78 
cae B06 1 ! 1-009 = Call OE AS $$! CAL 18 rer Pag errors. “36 8-DEC-7 

; 6 065 1 ! 1-010 = Add new routines’ for DGP 19-Dec g. 

3; 6 064 1! 1-011 - goan Ryu: nces to TSBbA BUF _PTR, BUF BEG, BUF_END to LUB. 

; 8s 065 1 i DGP 05-Jan-78 

. < bee 1} 1-018 - Change fo CR format for terminal data files. - 11-Jan-79 

3; § 0067 1! 1-31 - Make a qv changes for. focure ve 1/0. OGP 15-Jan-79 

3 o8 BRe8 : 1-014 - ase f : craig r “2. Moved to UDF level _ INPUT LINE hand- 
° * ng. ani 

; 70 a070 1! 1-015 - Change + Bg rame prefix to BSF$. JBS 08-FEB-1979 

3 71 071 1! 1- 16 - Add BASSSREC ~GSE (Basic GET sequential). DGP 19-Feb-79 

. 4 1 ! 12017 = Add BASSSREC"PSE (Basic PUT poquens teh) ante 20-Feb-79 

3 7 0075 1! 1- H = set RABSL_RBF in BASSSREC_PSE. DGP 20- 

:; 7% 0074 1 ! 1-019 = Set RABSL_RBF in BASSGSE. DGP 21-Feb- 

3; 5 0075 1! 1~36¢ - Null fill”buffer for GET. 7-Feb-79 

; tS Bae8 : 1-021 - ose, NEL Lous ines for FIND, DELEVE, UPDATE, RESTORE, SCRATCH. DGP 
; «£8 0078 1! 1-0 ¢ - Add BASIOERR.REQ for error handl jog: A. 4 28-F eb-79 

3 79 0079 1 ! 1-023 = Add BASUNLOCK and BASFREE. OGP 2 

; 680 0080 1 ! 1-024 = Set RABSL . 7° BASSSREC_UPD. ee Poe er-79 

c- 0081 1 ! 1-025 = Add REC *PRE. C_GRE, REC"FRE. OGP 02-Mar-79 

; ¢ tt) 1! 1-0 § - More work on ssl Bties 1/0: DGP OSemara79 

3; 8 0083 1! 1~06 ~ Update pointer for RED in Basic Major Frame in wel DGP 06-Mar-79 
; B4 0084 1 ! 1-028 - Add support for Basic soft fo buffers’’. DGP 27-M 

3; 85 0085 1! 1-363 - Point all GETs and PUTs off to GET ERROR, r PuT >ERROR. DGP 02-Apr-79 
; 86 0086 1 ! 1-030 - Add more routines to support ISAM.” 03-Apr-79 

3; 87 0087 1 ! 1-031 - Fix PUT sequential to suppert ISAR. °OGP 04-Apr-79 

; «688 0088 1! $14 - Put in indexed 1/0 st vad 9 

; Ww 0089 1 ! 1-033 - Bug fixes in indexed. 10 i. = 9 DGP 

; 39 a4 : } 1-034 - saplonent f the of! stotenent, using LUBSL_WAIT_TIME. 

3 : 993 ! 1-035 - inplon pent f wig 66H and NOECHO functions, using LUBSV_NOECHO. 

3 94 0094 1 ! 1-036 = Add Rin . at AD gingleccharacter input from GET 

3; 0 0095 1! SEQUENTIAL. JBS 17-APR-197 

3; 0096 1! 1-037 - bap loent the GERLO and RCTRLO functions, using LUB$V_CCO. 

; «97 097 1! JBS 19-APR-1979 

3 4 444 ' : 1-038 - inplegent the, cs ncel Typeahead ee ee LUBSV_PTA. 

; 100 0100 1 ! 1-039 - Add Basic PRINT USING support. DGP (oe 

3 13) 131 ' 1-040 - change Bie £9 GLOBAL BI ROUTINE a” PRI T USING support. 

; 108 198 1 | 1-041 = Add BASSRECOU_ INIT. JBS 04-JUN-1979 

3; 104 1046 1! 1-06 - Add REC Level”for MAT INPUT. DGP 05-Jun-79 

3 iS? 13? ' 1-045 - £209h UB a lot and ~i real code into Matrix Input routines. DGP 
: 24 198 1 ! 1-044 = Make REC_MIN1 Look for. cont tauat jen choractor. DGP 20-Jun-79 

; 108 108 1 ! 1-045 = Terminal “devices use PRN for ser utout DGP 10-Jul-79 

: 44 + 4 \ 1-046 - GASSNUR, BASSMUR.” D BAsssuune PT oT BASS AT “LINPUT, BASSMAT_READ, 
: 111 111. 1°! 1-047 - Change SBSL LNA F_PTR to Ai mad F_PTR, JBS 24-JUL-1979 

; 18 118 1! 1- 48 - Si RED wrth R no DA BATA, DGP 07-Kug-79 

. a9 11 1! 1-049 - Repu Oa MA mal "40 

3 («114 0114 1 ! 1-050 - STOP a few + ast are 2 SIGNALLed. DGP 05-Sep-79 


BASSSREC_PROC 1b-se =| 1: AX-11 Oi fog -32 V 
witha 9een obs S1iSaiks «| HANSA Osea Reet cago $2.1 
1-03) - FREE and ye are noth if no c ord locked. DGP 06-Sep-79 

2- goes se INIT and wo i. go AS MAT 0, and move passe LNK_LINE 


to here 6-Sep 
1-053 - 9 ad LUBSA. RBUE ADR for “Ger” ae PuT lor Locate mode (RMS). DGP 


BS ep 
1-054 - Clear the prompt buffer in GET ERROR. DGP 17-Sep-79 
1-055 = Fix BA SBLNK LINE. DGP 04-Oct-79 ° 
1-056 = Add RAT READ.” DGP"11- 2 hs 


Add a act routine for MAT PRINT. DGP 12-Oct-79 
1- 38 - Add BASSSR C_MLI1. DGP 12-Oct-79 
x SREC set to leave the cursor alone. DGP as mond “id 
“269 - Allow BASS ust! fo accept an argument. DGP 06-Nov-79 
- ad only fu the buffer, necessary, after a GET. DGP 
G wt ° L LL fill the buff if f E 


1 
1 
v- 
1-0 ¢ - eget at eeete an LF if no format char. OGP 13-Nov-79 
1- ase LUB simplify foreign buffer code. JBS 13°NOV-1979 
1 ~ ASSSREC “ALN dy not differentiate between terminal & non- 
terminal devices. OGP 14-Nov- 
1-065 - GET relative not null filling the buffer properly. DGP 29-Nov-79 
1-066 - ays "Nas fad r before restoring foreign buffer pointers for 
° -Dec- 
1-067 - RAS does not return a terminator in the STV field for files. DGP 
1-068 = REC_WSL9 should only writs 8 record if the output buffer has some- 
thing in it to write. P 03d an-80 
1-069 - Addition to 1-068. Shontd also write a record if there was no element 
transmitter. DGP 04-Jan-80 
1-070 = Unconditionally write a CR in WSL1. DGP 14-Jan-80 
-071 - Restore ‘‘foreign pur zere. roperly and set RECOUNT in GET Indexed 
and Relative. DGP 12-f 
1-072 - Adjust a dl g,ebet RECOUNT to include the length of an escape sequence. 


1-073 - A a Seton eeit t o fix a problem with foreign buffers reintroduced 
Bch" 20-Feb=80 with A.A a padding the buffer after a successful GET. 


1-074 = REC_WSLO neal set VFC2 to BASSK -NULL (no carriage control) if there 
is & format character. DGP eb-80 
1-075 - gate she yreer position for INPUT if terminated by an escape. 
- io - 
1-076 = When calculting CCPOS (current cursor position) following an INPUT 
statement, take the prompt string into account. 
1-077 = REC_RSL1 is not updating the cursor position correctly. DGP 04-Mar-80 
1-078 - REC"WSL9 should set the ‘pre’ carriage control for the next record 
a if there is no format charcter ‘cuz of Setneteed 1/0. OGP 
ar- 
1-079 = Rationalize the CCO and PTA bits. CCO is now copied from LUB to RAB 
rt ae tt Pf for output, and PTA when initializing for input. 


1-080 - Clear the dirty bie CCB CLUBSV_OUTBUF_DR] in PUT_ERROR so BASSCLOSE 
ynen invoked by the unwind won"t get Confused and do a PUT. 

1-081 - yack a the terminator(s) to he buffer when a GET is done on a 

nal device file in BASSSREC_GSE. 
1-082- nég/trans er BASSWAIT to eh s sates now wait rout ines are part of 
he sharable image. The routines added are BASSWAIT 
BASSEREAD D_WAIT. We had to make WAIT routines part of the sharable 
image because WAIT was requested to become a GLOBAL, and routines in 
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| BASSSREC_PROC 1b-se -1984 01:01: AX-11 Bliss-32 V4.0-74 Page 
mit ergo 7138s Phi 8b:ks = HBXSAT OSAESEASRE CoRO G$2.1 7 
: this module had tg reed We 
! 1~083- Only if LUBS$B_RAT indicates CR format tock on the CRLF. FM 9-feb-81 
4- Cursor position not updated correctly if | T was 
terminated by an sec ape - code should check if revioys 
! PRINT was terminated by a semicolon or comma. PLL 5-/7-81 
! 1-085- The purge typeahead erie on is no Longer setting the PTA bit in 
the LUB, so Meeere Cnet pe uas SREC LAI + and BASSSREC_GSE don't need 
-AUG- 
e F gccess nd manual record locking. PLL 1-Jun-82 
= BASSSR IN and BASSSREC_FIN should check for a Gee inal key 
: when setting the key size in the RAB. PLL 6-Jul-1982 
! 1-088 - Add support for ANS] INPUT. If not eggugh dete is supplied, the 
! entire INPUT must be restarted. Pub -Jul-1982 
! 1-089 = Fix CTRL/O rationalization. Unconditionally copy whatever its 
: state is in the LUB into the RAB, and clear it in the LUB. 
: MDL and JBS 10-Aug-1982 
! 1-090 = Set buffer pointer (in WSL9) from buffer beginning pointer rather 
than from RBUF_ADR. This fixes the problem of pointing fo the 
wrong buffer when the user enters a CTRL/C while a Line is 
written, and his control-c routine writes a line also. 
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' 
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' 

' 

heck it anymore. 
' 
7 
' 
' 
' 
' 
' 
' 
' 
' 
' 
MDL _ and 19-Au 
‘ 
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' 
' 
‘ 
i 
J 
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' 
' 
' 
‘ 
' 
' 


i to ¢ 
1-086 - Add support for RFA 


PLL -Aug-1982 

! 1-091 - In BASSSREC_RSL1 Bas$$SiGNaL Jo the too Little data error instead 

i of calling BASS$STOP_10. PLL 7Sep-19 2 

! 1-092 = In BASSSREC Rayo the contents of the print buffer should be $PuUT 
before the SGET js done, if this is a non-terminal device. This 
is a requested behavior chonge that will cause input prompts to 
eppeer n batch log files. RMS is making a change concurrently 
that will cause the actual input prev see to appear in the batch 
log as well, thus Oe one a batch log an exact duel Iga e of how 

: it would appear if run interactively. MDL 26-Jul-198 

! 1-093 = check for RMS$_CONTROLC completion status; call new CTRL/C signaller 
if this status is returned. this change is coordinated with rev. 

i 2-003 of BASSCTRLC. MDL 12-Mar-1984 

! 1-094 - for the special case of channel 0, edit 1-092 should reach thru the 
buddy ptr and use the output aide of channel 0 to write out the 


SONA NESW 0 OD NAN E WN SO OONOAOUE wT 


! prompt string. MDL 22-Mar- 

! 1-095 = routines that set and reset record options should reset them BEFORE 
calling error routines, so that subsequent 1/0 on the channel will 
work properly (if the user handles the error). MDL 23-Mar-1984 
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16-Sep-1984 01:01: AX-11 Bliss-32 V4. 
1228687} 4 94:90:48 BASRTL $Re BASRECP 
1} 
: SWITCHES: 
1 
! SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
j ‘ 
! } LINKAGES 
1 
1 REQUIRE *RTLIN:OTSLNK’'; ! define all Linkages 
7% 
’ } TABLE OF CONTENTS: 
1 
1 FORWARD ROUTINE 
1 BASSWAIT : NOVALUE, ! Writes into module level OWN WAIT 
1 BASSSREAD WAIT, ! Reads the module level OWN WAIT 
1 BASSRECO ! Support Basic RECOUNT function 
1 BASSSRECOU_INIT : NOVALUE, i Initialize RECOUNT 
1 BASSSBLNK_CINE : CALL_CCB NOVALUE, ! print a blank Line 
1 ! write onguant te) lList-directed 
1 BASSSREC_WSLO : JSB_RECO NOVALUE, ! initialize output buffer 
1 BASSSREC_WSL1 : JSB_REC_WSL1 NOVALUE, ! write all but last record 
1 BASSSREC_WSL9 : JSB_REC9 NOVALUE, ! write last record 
% ! Mat bE iMput 
: ota 11: JSB_REC1, ! always read another record 
! Mat Rea 
\ PASSOnE® Innes : JSB_REC1, ! return a failure 
! Mat Prin 
1 BASSSREC_MPR1 : JSB_REC1 NOVALUE, ! write one buffer 
1 BASSSREC_MPRO : JSB_REC9 NOVALUE, ! terminate Mat Print 
1 ! read sequential list-directed 
1 BASSSREC_RSLO : JSB_RECO NOVALUE, ! read first 
1 BASSSREC_RSL1 : JSB_RECI, ' read next 
1 BASSSREC_RSLO : JSB_REC9 NOVALUE, ! no-op 
1 ! MAT INPUT ; 
1 BASSSREC_MINO : JSB_RECO NOVALUE, ! initialize MAT INPUT 
1 BASSSREC_MIN] : JSB_RECI, ! record handler 
1 BASSSREC_MIN9 : JSB_REC9 NOVALUE, ! terminate MAT INPUT 
1 ! read ry Listedirected ’ 
1 BASSSREC_RMFO : JSB_RECO NOVALUE, ! initialize read memory 
1 ASSSREC_RMF1 : JSB_REC] NOVALUE, ! signal insufficient data 
' BASSSREC_RMF9 : JSB_REC9 NOVALUE; ! no-op 
1 GLOBAL BIND 
1 ROUT 
1 ! write formatted 
1 BASSSREC_WFO = BASSSREC_WSLO, 
1 BASSSREC_WF1 = BASSSREC_WSL1, 
: BASSSREC“WF9 = BASSSREC_WSL9; 
1 FORWARD ROUTINE 
1 ! record operations 
1 BASSSREC_GSE : JSB_DO_READ NOVALUE, ! GET sequential 
1 BASSSREC"PSE : JSB-PUT NOVALUE, ! PUT sequential 


$5 69251 


Page 


BASSEREC_PROC 

7 99 1 BASSSREC_FSE : JSB_REC2 NOVALUE, 

7 01 BASSSREC_FRFA: JSB-RECO NOVALUE, 

74 701 1 BASSSREC_DSE : JSB~RECO NOVALU 

75 7 ; 1 BASSSREC_UPD : JSB"DO WRITE NOVALUE, 
i: 20 1 BASSSREC “RSE : JSB-RECO NOVALUE , 

7 704 1 BASSSREC_SSE : JSB-RECO NOVALUE, 

i: 108 BASSSREC-PRE : JSB"PUT NOVALUE 

7 7 6 BASSSREC_GRE : JSB-DO_READ NOVALUE, 
80 707 1 BASSSREC_GRFA: JSB-DO-READ NOVALUE, 
81 708 1 BASSSREC_FRE : JSB-RECO NOVALUE, 

Be 709 1 BASSSREC-UNL : JSB"RECO NOVALUE, 

8 710 1 BASSSREC-FEE : JSB-RECO NOVALUE 

84 711 1 BASSSREC-GIN : JSB-REC_IND1 NOVALUE, 
85 Orig 1 BASSSREC_FIN : JSB-REC-IND1 NOVALUE. 
86 713 1 BASSSREC-RIN : JSB-REC-IND NOVALUE, 
87 orig 1 PUT_ERROR : CALL_CCB NOVALUE, 

88 715 (1 GET_LERROR : CALL_CCB NOVALUE; 

89 0716 1 

BAR TY nce rues 

3 0719 1! 

9 0720 1 

94, 0721 1 REQUIRE ‘RTLIN:BASIOERR’; 
395 0774 1 

96 0775 1 REQUIRE "RTLIN:BASFRAME'; 

97 0978 1 

98 0979 1 REQUIRE ‘RTLML:OTSISB’; 
399 1147 1 

00 1148 1 REQUIRE "RTLML:OTSLUB'; 

0 1288 1 

34 1289 1 REQUIRE *RTLIN:OTSMAC'; 
304 2p i REQUIRE "RTLIN:RTLPSECT' 

305 1579 1 
306 1580 1 REQUIRE "RTLML:BASPAR'; 

307 1602 1 
308 1603 1 LIBRARY "RTLSTARLE’; 

309 1604 1 
310 1605 1! 

11 1606 1 | MACROS: 
312 1607 1! 

1 1608 1 | NONE 

314 1609 1 | 

315 1610 1 ' EQUATED SYMBOLS: 

16 1611 1! 

17 lo1e 1 

18 1613 1 LITERAL 

19 1614 1 K_MAT_CONT_CHAR = %X'26', 

20 1615 1 

21 11g | K_STOP = 0, 

32 1617 1 K"SIGNAL ='1; 

2 1618 | 

4 1619 1! 

25 16 O | | PSECT DECLARATIONS: 

8 16 é 1 DECLARE_PSECTS (BAS); 

28 1623 1! 
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equential 
RFA 
sequential 
sequential 
sive with count 


error in $PUT 
error in $GET 


1/0 error codes 

Basic frame offsets 

1/0 statement block (ISB) offsets 
Logical unit block (LUB) offsets 
Macros 

Define DECLARE_PSECTS macro 

BASIC inter-module parameters 

STARLET Library for macros and symbols 


*g* = Mat Input continuation 
character : 

stop after Signalling this error 
signal and allow restart 


declare PSECTs for BAS$ facility 


y a 6 
BASSSREC_PROC 16-Sep-1984 01:01: AX-11 BL 
1-095 yereeea seas F1iSeiks =| YaNSAT es 
| OWN STORAGE: 
Q RECOUNT : INITIAL (0), 
; WAIT: WORD INITIAC (0); 
5 ' 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
BASSSSIGNAL : NOVALUE ! Signal a BASIC error 
BAS$$STOP_IO : NOVALUE, ! Signal fatal Basic erro 
BASSSSIGNAL_I0 : NOVALUE, ! Signal a BASIC 1/0 erro 
BASSSSIGNAL_CTRLC : NOVALUE; ! Signal CTRL/C 


BPE EAN twirnorororerory 


! out of data (READ) 

! end of file on device 
! not enough data 

!' ANSI for abov 


BASSK-TOOLITDAT : UNSIG e 
! record in file too long 


BASSK-RECFILTOO : UNSIG 


DZD 

Pd 

wo 
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x 

za 

oO 
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m 

z 
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o 

> 

— 

c 

= 

wn 

— 

QQ 
22222 
mmnmmnn 
ovVvVTso 
Ce te te te 
cococecece 
~— oe ee ee ee 
ere 8s & © 


WWANWAWAANWAAANAWAAAWNAA ANA 
, tee et et ee 


WN & & 
ae ae a ed ek ee a es ed a et et et st tn es ts os ts a 


ek a kk a dd dt 
Ay yy eS SSS FARE ERE POEL LH 


MEL 
OOWODNA WES WN 0 OONO VE WN OVOONOUNS 


MEW —OVDONOUL Ww —O0@ 


na ures 
| 


4.0- 


iotere Vv 74 
RC JBASRECPRO.B352;1 


Page 


~ 


N 4 
rappers -Paor Ve-Sep-1986 11:50:88 — EBasat oSaeSaasnecbRo.682; 1 we 


; 4 16 1 GLOBAL ROUTINE BASSWAIT ( ‘Limit input wait time 
3 8 16 1 'Seconds to Limit time 
$ 399 16 1 ) : NOVALUE = 
; 360 1654 1 
; 361 1655 1 !+¢ 
; ° 1626 ! FUNCTIONAL DESCRIPTION: 
3; 364 1658 1! Limits the time ony input 1/0 statement ( INPUT, INPUT LINE, LINPUT, 
3; 365 1659 1! MAT ‘all above’, GET ) to any terminal will wait. If the user does not 
> 366 1660 1! reply before the indicated number of seconds an error trap ( which the 
; 367 1661 1! user can intercept ) will be taken. WAIT is a module level OWN in this 
; 368 eee 1! module. 
; 369 1663 1! 
; 370 1664 1! 
H 71 1665 1 ' FORMAL PARAMETERS: 
; Ie 1666 1! : 
3; «37 1667 1! TIME.rl.v Number of seconds to wait, max. 
; 374 1668 1! 
. ore 1669 1 ! IMPLICIT INPUTS: 
; 376 1670 1! 
; $4 1671 1! The module level OWN WAIT 
; 378 10%6 1! 
3; 379 1675 1°! IMPLICIT OUTPUTS: 
; 380 1674 1! ; 
: $3 100? : } Writes to the module level OWN WAIT the number of seconds given 
; Be 1677 1 ! ROUTINE VALUE: 
> «384 1678 1! 
; 385 1679 1! None 
; 386 1680 1! 
; 387 1681 1 ! SIDE EFFECTS: 
; 388 1o86 1! 
; 389 1683 1! None 
; 390 1684 1! 
; 391 1685 1 !-- 
; 1686 1 
ae 1687 2 BEGIN 
3 394 1688 § '¢ i 
3 299 1689 : If the WAIT time is unreasonable then force it to the acceptable range. 
; 396 1o39 ! This is until the correct error message is cooked up for this error. 
; 397 1691 ! WAIT is a module Level OWN. 
; 398 1636 le 
; 399 169: WAIT = MIN ( ABS(.TIME) , 255 ); 
; 400 1694 RETURN; 
; 6401 1695 END; 'End of BASSWAIT 

-TITLE BASSSREC_PROC 

~IDENT \1-095\ 

-PSECT _BASSDATA,NOEXE, PIC,2 

00000000 00000 RECOUNT: .LONG 8 3 
0000 00004 WAIT:  .WORD 3 


-EXTRN BASSS$SIGNAL, BASS$$STOP_I0 
XTRN BASSSSIGNAL_10, BASSSSTGNAL_CTRLC 


; Routine Size: 


BASSSREC_PROC 
1-095 


402 


32 bytes, 


1696 1 


50 
50 
QOOOOOFF 8F 
50 
00000000" EF 


Routine Base: 


06 A 
08 
50 
50 
04 
FF OF 
50 
_BASSCODE + 


B 5 
16-Sep- 
14-Se 


orui—mooo 


wo-00—-C70SO 
OO SMW OOrwo 


0000 


= 
bad 


™~m 
bad 


~EXTRN 
»PSECT 
-ENTRY 
MOV 


1986 91:50:58 — EBAsatL® 


biagere PP led 
L.SRCJBASRECPRO.B52;1 
BASS$K_OUTOF DAT 
BASSK_ENDF ICDEV 
BASS$K_NOTENODAT 

ASSK~TOOLITDAT 
BASSK_RECFILTOO 

-BASSCODE ,NOWRT, SHR, PIC,2 
BASSWAIT, Save nothing 

TIME, RO 

RO, RO ™ 

RO, #255 

2$ 

#255, RO 

RO, WAIT 


poe eee 


r--—- 


| 
| 
| 


Be Se Ge Se Be Oe Se Ge Oe Ge Ge Ge Be Se Se Se Se Se Be Oe SH Se Se Se Se G4 Se Oe Se Oe Se SHS OH Se Se ee ese 


“ BASSSREC_ PROC 
at 


404 
405 


WN OOONOAVEWN “CO OONOUS wr oO 


tl ee ee ee ee ee ee ek ee ee et et et nt et et et ee bt et et et et ot bt bt td 
ea aan mh 


o 


Serre 
ewww 
—-CO0an 


; Routine Size: 


442 


5 
rE-Sep-1986 01:01:12 yayett BLies=52, 


ROUTINE BASSSREAD_WAIT !Read the module level OWN WAIT 
$s 


i FUNCTIONAL DESCRIPTION: 

: Read the module level OWN WAIT and return it. The value of this 
| 9 ghee eR curyens Senetens Ot wait. All routines that need 
i FORMAL PARAMETERS: 

NONE 

} IMPLICIT INPUTS: 

} Reads the module level OWN WAIT 
IMPLICIT OUTPUTS: 

None 

ROUTINE VALUE: 

} The contents of module level OWN WAIT 
} SIDE EFFECTS: 

None 


BEGIN 
Just return the value of the module Level OWN WAIT 


RETURN .WAIT; 
END; 'End of BASSSREAD_WAIT 


a dd od 
SNS SNS SSS SOOO 


FUN (OOO NO VEN $$ O OWONOUE WO C@ UEWN—OO@on 


LIDIA an a ns nt nr nk nk tnt ak nt tk tk kh kt tt at ot 2 = = = = 
- 


0000 00000 BASSSREAD WAIT: : 
-WORD Save nothing 
50 00000000" EF Hi 00008 MOVZWL WAIT, RO 
000 RET 


10 bytes, Routine Base: _BASSCODE + 0020 


1735 (1 


Vv 
E 


4.0-74 
CPRO.B52;1 


r ———— - —E 


dD 5 

BASSSREC_PROC 16-Sep-1984 01:01: AX=-11 Bliss-32 V4.0-74 Pa 11 | 
85 1228681382 97:95:48 EBASRTL SRE BASRECPRO. B82: 1 ™ (5) 
| 

3 4446 17 1 GLOBAL ROUTINE BASSRECOUNT ! RECOUNT 

; 445 17 1 : 2 
; 44 17 3 1 
: 446 17 1 !e¢ 

; ‘te Veiy : } FUNCTIONAL DESCRIPTION: 

; 450 1086 1! This routine supports the Basic RECOUNT function. It returns the number 

3; 451 1745 1! of bytes read on the last Get. It utilizes a piece of OWN storage which 

: 12g 1744 1! is written to by the record processing levels which do Gets. In order 

> 45 1745 1! to keep the OWN storage from having to be global, this routine is included 

; 454 ieee 1! in this module. 

; «6455 1747 1! 

: $28 1746 1 ! FORMAL PARAMETERS: 

; 45 1749 1! 

; 458 1750 3! NONE 

; 459 T7319 2 

; 460 P36 1 ! IMPLICIT INPUTS: 

> 461 1755 1! 

3 ra Has ; RECOUNT. rl The number of bytes read on the Last GET 

: 464 1738 1 ! IMPLICIT OUTPUTS: 

; 465 1757 1! 

> 466 1758 1! NONE 

; 467 1759 1: 

; 468 1760 1 =! ROUTINE VALUE: 

; 469 1761 1! 

; 470 1766 1! NUM_OF _BYTES.wi.v number of bytes read on last Get 

: 471 1765 1! 

: 472 1764 1 ! SIDE EFFECTS: 

3; 473 1765 1! 

3 474 1766 1 !-- 

; 475 1767 1 

; 476 1768 § BEGIN 

3 477 1769 RETURN .RECOUNT 

: 478 1770 1 END; ! End of BASSRECOUNT 


0000 00000 -ENTRY BASSRECOUNT, Save nothing : 1736) 
50 00000000" EF 00 0000 MOVL RECOUNT, RO ; 1769 
04 0000 RET ; 1770 


; Routine Size: 10 bytes, Routine Base: _BASSCODE + 002A 


3 479 1771 «1 


500 


Se Se Se Se Se Ge Se Se Se Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Se Se Se ee Se SH S5 Se Se Sees ee 
Oo 
~ 


SESS LL ELLIS 


3; Routine Size: 


3; 514 


18s 


cooooons er 792 9388 
04 $0008 
9 bytes, Routine Base: _BASSCODE + 0034 


1805 1 


984 t 7! 9} tg AX-11 Bliss-32 v4.0- 
14-§ ae 6: BASRTL.SRC BASRECPRO. 5 2;1 
! Initialize RECOUNT 


1778 ! GLOBAL ROUTINE BASSSRECOU_INIT : NOVALUE = 
1774 1 tee 

1775 1 =! FUNCTIONAL DESCRIPTION: 

ne 4 

1778 1! This routine initializes the RECOUNT variable. It is used before a RUN 
1779 1! compiler command in case the previous run of the user's program left 
1781 : ; something in RECOUNT. 

17 § 1 ! FORMAL PARAMETERS: 

ve + 3 

1784 1! NONE 

1785 1! 

178 1 ! IMPLICIT INPUTS: 

1787 1! 

1788 1! NONE 

1789 1! 

1790 1°! IMPLICIT OUTPUTS: 

44 1! 

138 : } RECOUNT .wl Always set to zero. 
1792 1 ! ROUTINE VALUE: 

1795 1! 

1796 1! NONE 

1797 1! 

1798 1°! SIDE EFFECTS: 

1799 1! 

1800 1 !-- 

1801 1 

1308 § BEGIN 

180 RECOUNT = 0; 

1804 1 END; 


! End of BASSSRECOU_INIT 


ENTRY passene cou. INIT, Save nothing 
he RECOU 


hie 


. 3 

BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 13 
het 18-88-13 91:90:48 BASRTL. REIBASRECPRO B42; 1 ° (7) 

; 1 1 06 1 GLOBAL ROUTINE BASSS$BLNK_LINE ( ! write a blank Line 

; 51 1 9 1 FORMAT_CHAR) : CALL_CCB NOVALUE = 

; 518 1 3 1 

3 319 1 1 tee 

3 , : 19 : } FUNCTIONAL DESCRIPTION: 

: ¢ 1812 : ; Print out a blank Line. This is needed between arrays. 

P} : 1813 } FORMAL PARAMETERS: 

; $ 1318 : : FORMAT_CHAR.rlu.v the format character last used 

3 3 8 1 18 1 ! IMPLICIT INPUTS: 

3 9 1819 1! 

; 5350 1820 1! NONE 

>; 531 i 7.9 & 

3 236 1 ¢ 1 ! IMPLICIT OUTPUTS: 

3 : 18 1! 

3 1824 1! NONE 

3 23) 1825 1! 

; * 1826 1 ! COMPLETION CODES: 

; $37 1827 1! 

3 236 1828 1! NONE 

; 539 1829 1! 

; 540 1830 1 ! SIDE EFFECTS: 

3 «541 1831 1! 

3; «54 1836 1! NONE 

3; «454 1833 1! 

3 5446 1834 1 !<- 

3: 545 1835 1 

3; 546 1836 § BEGIN 

3; «4547 1837 

; 548 1838 EXTERNAL REGISTER 

3; 549 137 CCB : REF BLOCK C, BYTE]; 

; 550 1840 

s $51 1841 LOCAL 

; 226 H 9 RMS_STATUS; 

3 33 184 § 

3; 554 1844 '¢ 

3 399 1845 ' Actually put out the blank Line here. 

; 556 1846 te 

g Sov 1847 CCB CRABSW_RSZ) = 0; 

: 558 1848 CCB CLUBSA_BUF_PTR) = .CCB CLUBSA_BUF _BEG); 

3 e278 1363 ccB re rea = BASSK_LF; 

3 20 1329 CCB CLUBSB"BAS_VFC2) = BASSK—CR; 

5 See 1936 RMS_STATUS = $PUT (RAB = .CCB); 

: 56 132 

3: 564 1854 IF .RMS_STATUS EQL RMS$_CONTROLC 

3; 565 1855 HEN 

3 266 1328 BASSSSIGNAL_CTRLC (); 

3 26 185 

; 568 1 28 IF NOT .RMS_STATUS 

3 289 185 HEN 

; 570 1860 PUT_ERROR (K_STOP); 

3 37% 138) 

3 $72 1862 RETURN; 


EE a a ee RO i RE bed ne 


5 
HEBSSREC PROS VEsseort9Ge O1:90:18 YALL SLseHadeadtaRs eG). a 


; 573 1863 1 END; 'End of BASSSBLNK_LINE 


-EXTRN = SYSS$PUT 


0004 ENTRY GASSSBLNK LINE, Save R2 : 1806 
22 AB OB4 eLRw 4 (CCB) [1 

BO AB Bt AB D0 MOVL “8 (CCB) -80(CCB) + 1848 

DA AB 8p01 i BO O000A MOVW #36097, =38(CCB) + 1849 

B DD 0001 PUSHL CCB : 1852 
000000006 gi FB 01 CALLS #1, SYSSPUT : | 
) 01 MOVL RO, RMS_STATUS 3 

00010651 8F 5 Dt o078 CMPL RMS_STATUS, #67153 > 1854 
000000006 00 $0 FB 00 CALLS #0, BASSSSIGNAL_CTRLC + 1856 
07 52 E8 0002C 1$: BLBS §RMS_STATUS, 2$ : 1858 

7E D4 O0L2F CLRL 0s = (SP) ; 186 

0000v CF 01 FB 00031 CALLS #1, PUT_ERROR : 
04 00036 2$: RET 3: 1863 


; Routine Size: 55 bytes, Routine Base: _BASSCODE + 003D 


574 1864 1 


H 5 
i ala 1e-$ep-1984 11:56:58 — EBASRTLsSRe SeASReCPRO.882:1 


3 6 1865 1 GLOBAL ROUTINE BASSSREC_MPR1 Write Mat Print record 
; OF 1 06 1 : JSB_REC1 NOVALUE = 

; 4 1867 1 

3; oF 1868 1 !+¢ 

: 280 : +4 : FUNCTIONAL DESCRIPTION: 

3 286 1871 1! Write one sequent fol formatted record and initialize for the next 
; 3 1 i; 1! BASSSREC_MPR1 writes one record for 10 MAT PRINT A() and then 

; 584 1875 1! nitializes the output buffer and returns start and end+1 of user 
; 585 1874 1! art of record buffer to be filled by caller. 

; 4] : o? : LR records are space padded. 

; at 1877 1. ! FORMAL PARAMETERS: 

; 268 1878 1! 

; 590 1879 1! NONE 

233 1881 : IMPLICIT INPUTS 

; 298 1882 1! 

; 594 188 1} LUBS$V_FORM_CHAR =1, comma or semicolon format character 

3 393 18846 1! LUBSW_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. 
; 596 1885 1! LUBSA_RBUF ADR Address of record buffer from OP 

; 597 1st 1! LUBSA_BUF _END oints to last char inserted into buffer 
; 598 1887 1! y UDF level 1/0. 

3; oP 1688 1! LUBS$Y_FORCIBLE Indicates a forcible device. 

; 600 13 , } LUBSV_OUTBUF _DR Indicates that there is valid data in the output 
; 601 1890 1! buffer 

; 60 1891 1! RABSW_RSZ Record size 

; 60 1336 1 ! 

; 604 1895 1 ! IMPLICIT OUTPUTS: 

; 605 1894 1! 

; 606 1895 1! LUB$B_BAS_VFC2 ‘Post’ carriage control for terminal devices 
; 607 1098 1! LUBSA_BUF _PTR Address of next char in user part 

; 608 1897 1! of record buffer 

; 609 1898 1! LUBSA_BUF _END Address of last+1 char in user part 

; 610 1899 1! of record buffer 

; 611 1900 1! LUB$V_OUTBUF _DR indicates valid data in the output buffer 
3 oi¢ 1901 1! LUBS$A_BUF BEG Be inning of the user buffer 

3 oi? 132 ' RABSL_RBF Pointer to the user record buffer. 

; 615 1904 1 ! ROUTINE VALUE: 

3 616 1905 1! 

3 61 1906 1! NONE 

; 618 1907 1! 

; 619 1908 1 ! SIDE EFFECTS: 

; 620 1909 1! 

; 621 ~ 7910 1! NONE 

, © § 1911 1 f= 

; 6 a 1 

: 624 191 BEGIN 

; 625 1914 

; ¢@ $ 1915 EXTERNAL REGISTER 

i; 62 Hat CCB : REF BLOCK C, BYTE); 

; 628 191 

; 629 13\3 LOCAL 

; 630 191 RMS_STATUS; 

3; 631 1380 

; 632 1921 '¢ 


© 5 . . © = ad 
pagggre. ria IEHSHMM MALE UGH AeSGRattekShesy MO 


: 633 19 § ! If there is no format character, then set the ‘pre’ and ‘post’ 
3; 6 19 ! carriage control to delimit a record. 
: 832 1958 a 
3; 6 ih) 8 IF NOT .CCB CLUBSV_FORM_CHAR] 
; 2 . 13 THEN 
; 640 19 § cca Luss BAS vECly = BASSK_LF; 
3 of) 13 » CCB CLUBSB_BAS_VFC2]) = BASS$K_CR; 
3 oe 19 g 
: 644 19 4 
; 645 19 ! Set recordsize to actual length of record 
3 oe 13 5 i= 
: eta + $ CCB CRABSW_RSZ] = .CCB CLUBSA_BUF_PTR] - .CCB CLUBSA_BUF_BEGI; 
; 650 1939 '¢ 
; 651 1940 ' Output buffer to RMS and check for errors 
; $36 oh If errors, SIGNAL BASS_FATSYSIO (12="FATAL SYSTEM I/O FAILURE") 
3 654 1308 
; 655 1944 CCB CRABSL_RBFJ = .CCB CLUBSA_RBUF _ADR); 
3 $28 136? CCB CLUBSV_OUTBUF_DR) = 0; 
; 658 1909 RMS_STATUS = S$PUT (RAB = .CCB); 
3; 659 1948 
; 660 1949 IF_ .RMS_STATUS EQL RMS$_CONTROLC 
; 661 1950 
: O98 1951 BASSSSIGNAL_CTRLC (); 
; 66 1326 
; 664 195 IF NOT .RMS_STATUS 
; 665 1954 THEN 
3 666 1955 
3; 66 1956 '¢ 
; 668 1957 ! Not OPEN or CONNECT - RMS record operation 
3; 669 1958 te 
3; 6706 1959 
3 71 1960 PUT_ERROR (K_STOP); 
; 67, 1961 
3; 67 1oc8 '¢ 
3; 674 196 ' Return next output buffer start and end addresses 
3; 675 1964 t= 
3 676 1965 
3; 67 1966 CCB CLUBSA_BUF_PTR) = .CCB CLUBSA_RBUF_ADR); 
; 678 1967 CCB CLUBSA_BUF"END] = .CCB CLUBSA_RBUF_ADR] + .CCB CLUBS$W_RBUF _SIZE); 
3; 679 1968 RETURN; 
; 680 1969 1 END; ! End of routine - BASSSREC_MPR1 
52 DD 00000 BASSSREC_MPRI:: 
06 FE AB 2 £0 0000 +t es a, (CCB), 18 : 1882 
DA AB 8001 Bf B0 $0009 MOVW of 039 oBatces) ; 1958 


a A BB ae es oo et ee ONE Oe nas ee 


PAS ESAEC PROt 


1 
e"2u 38 2 oem 
ba tage 
000000006 8 1 F 1F 
00010651 2 f 0 § 
000000006 F p ; ’ 
a 2 EB BN 2s: 
0080. Ae EC AB DO 00048 38: 
85 55 AB Re 0048 
B4 AB EC BB40 9E do4¢ 
04 BA 0005 
05 00054 


; Routine Size: 85 bytes, Routine Base: _BASSCODE + 0074 


; 681 1970 1 


rbeseo-t9ge 01:01:12 


AX-11 at Sane v4.0 


«DKCEB) 34(CCB) 
40(CCB) 


SUBW3 © -68 (CCB), 

MOVL = «sei 

B1(B2 ! -2(c 

PUSHL 

aS i uw, 

CPL RMS_STATUS, #67153 

CALLS ASSSSIGNAL CTRLC 
LBS Rng 3$ 

CLRL = B) 

CALLS PUT_ER ROR 

MOVL == “#6«ECBy. 0<(CCB) 

MOVZWL Hy R 

MOVAB a: OcCCBSCROI, -76(CCB) 
i 


BASRTL. Ts JaASRECPRO. : 2:1 


ees 


ie IT IT YE 
BASSSREC_PROC 


3 3 1971 1 GLOBAL ROUTINE BASSSREC =FPRO 

3 6 1972 1 JSB_REC9 NOVALU 

; 685 130 1 

: $8 i re i i FUNCTIONAL DESCRIPTION 

: BRS 1346 ii This routine d 

; $s routine does not wr 
; 690 1308 1! transmitter took care of 
3 $3) : 4 : after the array, there i 
; 69 19 1 ! FORMAL PARAMETERS: 

3; 694 19 1! 

3; 695 19 1! NONE 

3 24 | 19 1! 

; 69 1985 1! IMPLICIT INPUTS: 

3; 698 19 1! 

; 699 1987 1! LUB$W_RBUF _SIZE 

; 700 1988 1! LUBSA_ RBUF “ADR 

; 701 1989 1! 

; 70 1990 1 ! IMPLICIT OUTPUTS: 

; 70 1991 1! 

3 704 1Sa6 1! LUBSA_BUF _PTR 

; 705 1993 1! 

3; 706 1994 1! LUBSA_BUF _END 

3; 707 1995 1! 

; 708 1996 1! 

; 709 1997 1 ! ROUTINE VALUE: 

; 710 1998 1! 

: 711 1999 1! NONE 

3 Ne 000 1! 

oe. 001 1 ! SIDE EFFECTS: 

: 7146 O28 1! 

3; 715 003 1! NONE 

3 716 004 1 !-- 

3; 71 005 1 

; 718 006 BEGIN 

3; 719 007 

3 750 008 EXTERNAL REGISTER 

3 721 009 CCB : REF BLOCK C, BYTE); 
3 sé 010 

_- 011 '¢ 

3 726 Oig !' Return next output buffer 
3; 725 01 te 

, 6UF § 014 

°F 015 CCB CLUBSA_BUF_PTR) = .CCB 
3; 728 016 ccB LUBSA_ “BUF-END] = .CCB 
; 729 spit RETURN; 

; 730 018 #1 3 


BO AB EC AB 


BS AB Ee é eecd 


AX-11 at stei¢ 


HEoseoctaas 01:91:12 yatctt 


! Mat Write sequential 


ite a cocerd. proounedty the MAT PRINT element 
all of that. hs nce we do not want a blank Line 
S$ no need to write anything here. 


Size (bytes) allocated for record buffer at OPEN. 
Address of record buffer from OPEN 


Address of next char in user part 
of record buffer 

Address of last+1 char in user part 
of record buffer 


start and end addresses 


LUBSA_RBUF _ADR); 
LUBSA_RBUF ADR] + .CCB CLUBSW_RBUF SIZE); 


! END BASSS$REC_MPRI9 


DO 00000 BASSSREC Fwner: 


VL 
3 00005 MOVZWL = 
— 00009 MOVAB @ 


RO.B82; 1 


pagggrec roc ee tr ee 
05 0000F RSB | ; 2018 
; Routine Size: 16 bytes, Routine Base: _BASSCODE + 00C9 ; 


; 731 2019 1 


ee 


BASSSREC_PROC 


; 33 020 1 
eB BAY 
TR 8 0 j 1 
 & 024 1 
; 738 8 9 
: 739 : 1 
; 740 0 1 
3: 741 0 8 4 
3 re 0 1 
s 76 030 1 
3 746 9 1 
3; 745 ¢ 

3; 746 8 j 
3 747 34 «WY 
3; 748 tH 1 
3; 749 036 1 
; 750 037 1 
3; 751 038 1 
3 P36 039 1 
3 re 040 1 
3; 754 041 1 
3 33 beg T 
; £26 043 1 
- oP 044 1 
3; 758 045 1 
; 759 046 1 
3; 760 047 1 
3; 761 2048 1 
3; 76 sper 1 
s 76 50 1 
3 6764 2051 1 
3; 765 $026 1 
3; 766 § 53 1 
3; 767 054 «1 
; 768 2055 1 
3; 769 056 (1 
; 770 057 1 
3 771 058 1 
; 77 059 1 
; 77 060 1 
3 774 061 1 
3; 775 oo¢ 1 
; 776 spe 1 
Pe lia 064 1 
; 778 65 1 
; 779 66 1 
; 780 067 1 
3; «781 068 1 
; £6 069 1 
; 78 070 1 
3: 784 071 1 
3; «6785 44 i 
; 786 07 

3; 787 074 

: 788 075 

; 789 076 


E 


ear st 


'o4¢ 


i FUNCTIONAL DESCRIPTION: 


NOVALUE = 


BAS$SREC -WSL9 


m5 
eSep-19be 81:50:88 — EBASmTL “SReSeAsRE CP 
' 


Write sequential formatted 


Write one sequential formatted record and initialize for the next 


BASSSREC_WSF 


(and BASS$REC_WSL9) 


writes one output buffer and then 


initializes the output porter and returns start and end+! of user 
art of record buffer to be filled by caller. 

LR records are space padde 

/logical record number is Tncrenented/. 


FORMAL PARAMETERS: 


NONE 


IMPLICIT INPUTS: 


ISB$V_PRINT_INI 
LUBSW_RBUF ~fize 
LUBSA_RBUF "A 
CUBSA” BUF TEND. 
LUBSV_FORM_CHAR 


LUB$V_FORCIBLE 
LUBS$V~OUTBUF _DR 


RABSW_RSZ 


IMPLICIT OUTPUTS: 


ISB$V_PRINT_INI 
LUB$B_BAS_VvFC2 
LUBS$A_BUF ~PTR 
LUBSA_BUF _END 


LUB$V_OUTBUF _DR 
LUBSA~BUF _BEG 
ABSL ~RBF 


ROUTINE VALUE: 


NONE 


SIDE EFFECTS: 


NONE 


BEGIN 


flag to indicate whether there was an element 
transmitter 
Size (bytes) allocated for record buffer at OPEN. 
Address of record buffer from OP 
porns to last char inserted into buffer 
UDF level 
The Last element transmitter ended in a comma 
or semicolon format char 
Indicates a forcible device - 
Indicates that there is valid data in the output 
buffer 
Record size 


reset flag 

‘Post’ carriage control for terminal devices 
Address of next char in user part 

of record buffer 

Address of last+1 char in user part 

of record buffer 

indicates vel ig data in the output buffer 

Be Anarene of the user buffer 

Pointer to the user record buffer. 


cuTERNA REGISTER 
CCB : REF BLOCK C, BYTE); 


RO-B82; 1 


Pane 18) 


OOOO COCCOOCOCoOoO 
Co CO OD CO COCO COOP OO VII“ 


ONAOVULSW—O0On 


rorrr 
ooooo 
oO000e 
Oc 


ooo°o 
onovuono 
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LOCAL 
RMS_STATUS; 


If Last element ended with a format character and not a terminal device 
then return to caller without writing anything. With CR format, we must 
! PUT a whole record. 


IF .CCB CLUBSV_FORM_CHAR] AND NOT .CCB CLUBSV_FORCIBLE] THEN RETURN; 


14 
! Set the ‘post’ carriage control to carriage return 
if the Last element transmitter had no format character following. 


IF NOT .CCB CLUBSV_FORM_CHAR] THEN CCB CLUB$B_BAS_VFC2] = BAS$K_CR; 


+ 
Set recordsize to actual length of record 


CCB CRAB$W_RSZ2] = .CCB CLUBSA_BUF_PTR] - .CCB CLUBSA_8UF _BEG); | 


r 


+ 
' Output buffer to RMS and check fo rors 
10 ¢ FATAL SYSTEM 1/0 FAILURE’) 


er 
If errors, SIGNAL BAS$_FATSYSIO =' 


: 
12 | 

| 
,, 008 CRABSL_RBF] = .CCB CLUBSA_BUF BEG); | 


! Write something if there is something in the buffer or if there was no 
element transmitter. 


IF CCB CLUB$V_OUTBUF_DR] OR .CCB CISBSV_PRINT_INIJ | 
RMS_STATUS = $PUT (RAB = .CCB); 
IF .RMS_STATUS EQL RMS$_CONTROLC 
BASSS$SIGNAL_CTRLC (); 
If NOT .RMS_STATUS 
PUT_ERROR (K_STOP); 


CCB pL uasy QUTBUF pr} 0; 
CCB CISB$V_PRINT_INI 0; 


'¢ 

! If there is no format character then set the ‘pre’ carriage control to LF 
! for the next record. This is recursive 1/0 and the rest of the List when 
,_ we return should be written on the next Line. 


| BASSSREC_PROC 18.56 $ep-1984 01:01: AX-11 Bliss-32 V4.0-74 
n858 14- ~3007} 38% 9 Oh 48 BASRTL. SRCIBA ASRECPRO.B32;1 
; ol ! ¢ IF NOT .CCB CLUBSV_FORM_CHAR] THEN CCB CLUB$B_BAS_VFC1] = BASSK_LF; 
: 849 1 é \¢ 
: se0 : a Return next output buffer start and end addresses 
: 85 139 ' 
: He 140 CCB CLUBSA_BUF _PTR] = .CCB pLUSSA. RBUF _ADRJ; 
3; 854 141 CCB CLUBSA_BUF"END) = CCB LUBSA_RBUF ~ADR -CCB CLUBSW_RBUF _SIZEJ; 
; 855 a RETURN; 
3; 836 145 #1 ND; ' END OF ROUTINE 


52 DD 00000 BASSSREC LUSL9: : 
OA FE AB 02 €1 90002 BBC #2, -2(CCB), 1$ 
66 FE AB 06 £1 0000 BBC "6, “3 (CCB), PR 
05 FE AB 02 E 0000¢ BBS #2. - (CCB) 2$ 
DB CAB 8D BF 9 00011 1$ MOVB #-115, -37(CCB) 
22 «AB BO AB BC AB A3 00016 2$ SUBW3 -68(CCB), -B0(CCB), 34(CCB) 
28 =A BC AB DO 00010 MOVL g8(C CB) 40( CCB) 
05 FE AB 03 €0 000¢¢ BBS #3, -2(CCB), 3$ 
0c 97 AB 03 €1 0008 BBC 3. ea 4$ 
5B DD 0002C 3$ PUSHL CCB 
000000006 00 01 FB O00¢E CALLS #1, SYS$PU 
52 50 00 000 MOVL RO, RMS STA Atus 
00010651 F 32 D1 00038 4$ CMPL Ras _STATUS, ye7153 
12 0003F BNE 
000000006 00 0 FB 00041 CALLS 20 BASSSSIGNAL _CTRLC 
07 2 €8 00048 S$: BLBS RMS 6$ ~ 
7E D4 00048 CLRL (ep 
0000v CF 01 FB 0004D CALLS a: PUT_ERROR 
FE AB 08 8A 00052 6$ BICB 8, -2(TCB) 
97 AB 08 8A 00056 BICB 8; -105(CCB) 
04 FE AB 02 £0 0005A BBS 2. = ¢¢B) 7$ 
DA AB 01 90 0005 MOVB 1. =38(CCB) 
BO AB EC AB DO 00063 7$ MOVL =20(CCB), -80(CCB) 
50 D2 AB 3C 00068 MOVZWL -46(CCB). RO 
B4 AB EC BB40 9€ 0006¢ MOVAB a-20(CCBSCROJ, -76(CCB) 
04 BA 00072 8S POPR #*M<R2> 
05 00074 RSB 
; Routine Size: 117 bytes, Routine Base: _BASSCODE + 00D9 
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heii; 14-Sep-19 4 OF :38 EBASRTL SRE BAsRE CPO 682; 1 ° at 
59 GLOBAL ROUTINE BASSSREC_RSLO ' Read initialization 

60 : JSB_RECO NOVALUE = 

6 + 

bes FUNCTIONAL DESCRIPTION: 

865 BASSSREC_RSFO (and BASSSREC_RSF1) reads one record if this is not a terminal. 

866 Then return start and end+1 of user 

U4 part of record to be processed as input. 

$° FORMAL PARAMETERS: 

71 NONE 

87 

1h IMPLICIT INPUTS: 

875 LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. 


LUBSA~RBUF “ADR 
LUBSV~TERM~DEV 
RABSW"RSZ 


Address of record buffer from OPEN. 
flag in LUB which indicates a terminal device. 
word in the RAB which contains the buffer size. 


879 RABSL_RBF Longword in RAB which points to the buffer. 
880 LUBSL_WAIT_TIME Max time to wait for trout in seconds. 
rt WAIT The module level OWN WAIT 
ass IMPLICIT OUTPUTS: 
885 RECOUNT Global storage to hold number of bytes read from 
886 Last Input. 
LUBSL_LOG_RECNO Increment logical record number 
888 of next record to be read. 
889 LUBSA_BUF _PTR points to first char of user part of 
90 record buffer. 


LUBSA_BUF _END points to end+! of user part of 


record buffer. 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


Reads next record from file on this logical unit. : 
one away things that are pending in the Print buffer for non-terminal 
evices. 
SIGNALS RMS errors directly. | — |. =a 
SIGNALS BASSK_TIMLIMEXC if a weit time was specified and we 

excee ° 


898 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LITERAL 
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} in case there was an earlier timeout specified. 


'¢ 
' If wAIT is zero then use the LUB's wait. This is to eree*ae sac compatibility 
- i.e. existing EXE’s can run with the LUB wait vaiue in V2.2. 


" WAIT_TIME = (IF ( WAIT EQL 0 ) THEN .CCB C LUBSL_WAIT_TIME ] ELSE .WAIT ); 
IF ( .WAIT_TIME EQL 0) 


CCB CRABSV_TMO) = 0 
LSE 


EGIN 
CCB [RABSB_TMO] = .WAIT_TIME; 
cc RABSV-TMO) = 1; 


t+ 

' Set the Read-no-echo RMS bit based on the user's last call to 
: ECHO or NOECHO. 

" €CB CRABSV_RNE) = .CCB CLUBSV_NOECHO); 


'¢ 

: Check to see if this is a terminal device. If this is NOT 

! a terminal then do a GET. GETs for terminals are done each time more 
! data are needed. 

: Read record into buffer using RMS and check for errors 


Ven NOT .CCB CLUBSV_TERM_DEV) OR .CCB CLUBS$V_ANSI]) 
BEGIN 


LOCAL 
TEMP CCB: REF BLOCK C 
TEMP_CCB™= .CCB 


cs 


BYTE); ! Temporary CCB 
LUBSA_BUDbY_PTRI; 


NAMA WN 0 ODNO UE WN (OOD NOU EWN“ OOONOUE WIN 


If there is something pending in the Print buffer, then $PUT it. 
It cannot become a prompt, because RMS will throw away prompts 
to disk files; therefore we must $PUT it. 


if (NOT -CCB CLUBSV_TERM_DEV)) AND .TEMP_CCB CLUBSV_OUTBUF _DR) 
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CAL 
RMS says 

‘ AIT_TIME; ' Current wait time 

i If a timeout has been specified, store information in the RAB to tell 

! RMS about it. If no timeout has been specified, clear the IMO bit 
4 
4 
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BEGIN 
TEMP_CCB CRABSW_RSZ) = hi cee LUBSA_BUF _PTR) - .TEMP_CCB CLUBS$A_BUF BEG); 


TEMP-CCB CRABSL_RBF a LUBSA_BUF BEG); 


roe 
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1 Bt 0-74 
BASRTL.SRCJBASRECPRO.B32; 1 
RMS_STATUS = SPUT (RAB = .TEMP_CCB); 

IF .RMS_STATUS EQL RMS$_CONTROLC 

BASSSSIGNAL_CTRLC (); 

IF NOT .RMS_STATUS 
THEN 
yp: UTHERROR (K_ STOP) ; 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 
TEMP_CCB CLUBSA_BUF _PTR] = .TEMP_CCB CLUBSA_BUF _BEG); 
RMS_STATUS = $GET (RAB = .CCB); 


IF .RMS_STATUS EQL RMS$_CONTROLC 
BASSSSIGNAL_CTRLC (); 

IF NOT .RMS_STATUS 
GET_ERROR (K_STOP); 


7¢ 

! Set RECOUNT to the number of bytes read 

! If the file is a terminal format file, then RECOUNT has to be 

! adjusted for the carriage control terminator. Because RMS does not return 
! a terminator for a file, we unconditionally put a CRLF on the end and 

bump RECOUNT by 2. 


RECOUNT = .CCB CRABSW_RSZ) + (IF (.CCB CLUBSV_TERM_FOR]) AND ((.CCB CLUBSB_RAT] AND FABSM_CR) NEQU 0. 


THEN 2 ELSE 0); 


'¢ 
' Put the CR into the STV field since RMS doesn't 
: We should only do this if the record attributes indicate a CR format. 


IF (.CCB CLUBSB_RAT) AND FABSM_CR) NEQU 0 THEN CCB CRABSL_STV) = 13; 


le 
Return start-1 and end+1 address of record just read 


CCB [LUBSA_BUF _PTR 
CCB 


ELSE 


'¢ 
: This is a terminal. Force a no data in the buffer condition 
! so the first GET is done on the element transmitter after the 
Prompt (if any) is known, 


-CCB Hredn RBF) - 


s 1: 
LUBSA~BUF END] = .CCB CRABSL-RBF) + .CCB CRABSW_RSZ); 


BEGIN 


| F 6 
| BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 26 
at 18-88-1382 OF i9bi de YBASRTL SRE BASRECPRO.B32;1 . a 
: 10 1 ccB FLUBSA_BUF PTR = .CCB CRABSL_RBFI; 
3 19 18 cB LUBSA"BUF-END) = .CCB CLUBSA~BUF _PTRI; 
: 10 1 , 
: 10 20 RETURN; 
> 1035 1 ND; ! End of BASSSREC_RSLO 
.EXTRN SYSSGET 
OC BB 00000 BASSSREC_RSLO:: 
PUSHR #*M<R2,R3> 3 2145 
50 00000000° FF 3 9002 MOVZWL WAIT, RO + 2216. 
C 12 000 BNEQ 1 : | 
50 cc AB p 0008 MOVL  -52(CCB), WAIT_TIME : 
0 OOF BNEG 3 321 
07 AB BA 00011 BICB2 #2, 7(CCB) 3 222 
11 0015 BRB $ : 
1F AB 0 90 00017 1$: MOVE WAIT_TIME, 31(CCB) + 222 
07 «AB 02 88 0018 B1SB2 "2 7(CCB ; 3¢ 
07 AB 01 00 AO AB FO OOO1F 28: INSV =96(CCB), #0, #1, 7(CCB) : 
08 FE AB 05 €1 00026 BBC as, ~g(¢¢B) 3$ + 226 
03 Al AB 04 £0 00¢8 BBS #4. -95(CCBS, 3$ 3 
00A3 31 000 BRW 11§ : 
52 B8 Ag DO 00033 3s: MOVL -72(CCB), TEMP_CCB > 2247, 
FE AB 0 E0 00 BBS #5, -2(C¢B), + 2254 
32 FE OA 3 £1 0003C¢ BBC #3. -2(TEMP CCB), 5$ ; | 
22 A BO A BC OA a3 00041 SUBW3 © -O8(TEMP_CCB), -BO(TEMP_CCB), 34(TEMP_CCB) ; 2257 
28 OA BC A2 D Bnpee MOVL -68(TEMP-CCB), 40(TEMP_CCB) : 2258) 
52 DD 00040 PUSHL TEMP_CCB + 2260 | 
000000006 99 01 FB 0004F CALLS #1, SYS$PUT 3 | 
5 20 DO 00056 MOVL RO. RMS STATUS : 
00010651 &F 33 D} 0059 cMPL RMS_STATUS, #67153 > 2262 
000000006 00 9 FB 006¢ CALLS #0, BASSSSIGNAL_CTRLC > 2264 
07 f 006 4$: BLBS §RMS_STATUS, 5 + 2266 
E D4 0006C CLRL —s-_ = (SP) > 2268 
0000v CF 01 FB 006 CALLS #1, PUT_ERROR ; 
BO A2 BC A2 00 00073 5$: MOVL -68(TEMP_CCB), -80(TEMP_CCB) > 2271 
58 DD 0007 PUSHL CCB : 2273 
000000006 09 gi FB 007A CALLS #1, SYSSGET ; 
5 dO 00081 MOVL RO, RMS STATUS ; 
00010651 &F 3 D} 0084 cMPL RMS_STATUS, #67153 : 2275 
000000006 00 99 6 O08 CALLS #0, BASSSSIGNAL_CTRLC : 2277 
07 EB 00094 68: BLBS §§ RMS STATUS, 7$ + 2279 
7E 04 0097 CLRL 3s = (SP) ; 2281 
0000v CF 01 FB 00099 CALLS #1, GET_ERROR : 
OA FE AB 4 E1 OO09E 7$: BBC #4, -2(0CB), 8$ > 2291 
05 F6 AB 1 £1 OOOA BBC #i. -10(CCBS, 8% F 
50 DO 000 MOVL ae. RO ; 
11 QOOAB BRB 9 3 
p4 AD gs: CLRL =—s_ RO ; 
51 22 AB ¢ AF 9$: MOVZuL 34(CCB), R1 ; 
00000000' Ef 0 51 Ci 00083 ADDL3 R1, RO, RECOUNT : 
F6 AB 1 € BB wi. -16¢CCB), : 
4 01 €1 000 1; -16 10$ 2298 
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-BASSCODE + O14E 


Routine Base: 


227 bytes, 
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2322 


; Routine Size: 
| 


; 1036 
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GLOBAL ROUTIN eta se ! MAT Input initialization 


JSB_RECO NOVALU 


lee 

} FUNCTIONAL DESCRIPTION: 

: BASSSREC_RSFO (and BASSSREC_RSF1) reads one record if this is not a terminal. 

} Then return start and end+! of user 

part of record to be processed as input. 

FORMAL PARAMETERS: 

NONE 

i IMPLICIT INPUTS: 

i LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. 

: LUBSA_RBUF _ADR Address of record buffer from OPEN. 

: LUBSV_TERM_DEV flag in LUB which indicates a terminal device. 

; RABSW_RSZ word in the RAB which contains the buffer size. 

! RABSL_RBF Longword in RAB which points to the buffer. 

; LUBSL_WAIT_TIME Max time to wait for input, in seconds. 

WAIT Module level OWN WAIT 

i IMPLICIT OUTPUTS: 

: RECOUNT Global storage to hold number of bytes read from 

; Last Input. 

; LUBS$L_LOG_RECNO Increment logical record number 

: of next record to be read. 

: LUBSA_BUF _PTR points to first char of user part of 

: record buffer. 

: LUBSA_BUF _END points to end+1 of user part of 

record buffer. 

: ROUTINE VALUE: 

NONE 

i SIDE EFFECTS: 

i Reads next record from file on this logical unit. 

: sarees away things that are pending in the Print buffer for non-terminal 
evices. 

; SIGNALS BASSK_FATSYSIO (12="FATAL SYSTEM 1/0 FAILURE") 

, SIGNALS BASSK_ENDFILDEV (11="END-OF-FILE ON DEVICE") 

: SIGNALS BASSK_RECFILTOO if record too big ' 

: SIGNALS BASSK_TIMLIMEXC if a wait time was specified and we 

exceed it. 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LITERAL 


6 
1en$ep-1986 11:50:58 EBASRTLe SRE SBASRECPRO. 
' 


882;1 


roe 


6 
alana 1fogeor 19g 1:58:58 — EBAsetu See SeaseecPRo.682; 1 Page 3) 
095 K ESCAPE = %x'1B', 
K_CR = %x'OD'; 


33 


Loc 


33 


AL 
RMS_STATUS, 
WAIT_TIME; !Current wait time 


f a timeout has been specified, store information in the RAB to tell 
MS about it. If no timeout has been specified, clear the TMO bit 
nN case there was an earlier timeout specified. 


Sceceresre 
— De 


‘6 

: If WAIT is zero then use the LUB's wait. This is to provide upward compatibility 

:_« 1.€. existing EXE's can run with the LUB wait value in V2.2. 

"WAIT TIME = ( IF ( .WAIT EQL 0 ) THEN .CCB C LUBSL_WAIT_TIME J] ELSE .WAIT ); 
IF (.WAIT_TIME EQL 0) 


H 
CCB CRABSV_TMO) = 0 
LSE 


OOOOOOWO@O 


BEGIN 
CCB FRABSB_1HO} = ,WAIT_TIME; 
cc RABSV~TMO) = i; 


‘+ 
' Set the Read-no-echo RMS bit based on the user's last call to 
ECHO or NOECHO. 


CCB CRABSV_RNE) = .CCB CLUBSV_NOECHO); 


le 
' Check to see if this is a terminal device. If this is NOT 

' a@ terminal then do a GET. GETs for terminals are done each time more 
' data are needed. 

! Read record into buffer using RMS and check for errors 

! If end-of-file, SIGNAL BASSK_ENDFILDEV (11="END-OF-FILE ON DEVICE") 

' If record too big for record buffer, SIGNAL BASSK_RECFILTOO. 

i If errors, SIGNAL BASSK_FATSYSIO (12="FATAL SYSTEM 1/0 ERROR) 


NAP DIININIOININININS Ss 8 8 8 8 8 = = OO oo 


a 
wr 


IF ( NOT .CCB CLUBSV_TERM_DEV]) 
THEN 
BEGIN 


LOCAL 
TEMP_CCB : ef BLOCK C, BYTE); ! Temporary CCB 
TEMP_CCB™= .CCB CLUBSA_BUDOY_PTRI; 
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+ 
If there is something pending in the Print buffer, then $PUT it. 
It cannot become a prompt, because RMS will throw away prompts 
to disk files; therefore we must $PUT it. 


Be Be Be Be Se Be Se Be Se Se Se Be Be Ge Se Ge Ge Fe Se Ge Fe Se Se Se Ge Ge Ss Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se oe SF Se Se FH Ss Se Ss Se Se Se FH Se Ge Se Se Sse Seas 
me ee ee re cee me ce me ee ee i ee me ee ee te a ee a ed ae ed ed ed ed wd ed 
a et a a ee ee ee ee ce ee ee a ee ee et ek ee ek ed ed ed ed dd wd wd ot 

Peo oF OY oF oe oe oy ON oy oe oe et ot ot ot ee ee 


MSS USAR UND moo we 


MNFRS 


$$ ——————______— 
6 
ASSSREC_PROC these =1984 01:01: AX=11 Bliss-32 v4.0-74 p 0 
hes; Verge 19be STi 8a:ks «| HAXSAT Obhe Sehgal tats bSo.1 age 438 
oe le 
IF (NOT CCB CLUBSYTERM_DEV]) AND .TEMP_CCB CLUBSV_OUTBUF DRI 
BEG! 


N 
TEMP_CCB CRABSW_RSZ) = .TEMP_CCB C(LUBSA_BUF_PTR) = .TEMP_CCB CLUBSA_BUF _BEG); 
TEMP_CCB CRABSL_RBFJ = .TEMP_CCB CLUBSA_BUF _BEGJ; 


3 3 

i 18 ; 

3 11546 

:} 5 ‘ 

at ite 

: : 33 re 2 RMS_STATUS = SPUT (RAB = .CCB); 

; 1161 44g 4 IF _.RMS_STATUS EQL RMS$_CONTROLC 

; es 448 4 BASSSSIGNAL_CTRLC (); 

; 1186 430 4 IF NOT .RMS_STATUS 

: 116 45 PUT_ERROR (K_STOP); 

We BE pea. 

; 1170 435 TEMP_CCB CLUBSA_BUF_PTR] = .TEMP_CCB CLUBSA_BUF_BEG); 

; Nite 43 RMS_STATUS = S$GET (RAB = .CCB); 

; 1174 439 f gRMs_STATUS EQL RMS$_CONTROLC 

: 1176 ree BASSSSIGNAL_CTRLC (); 

iu ies “a 

> 1180 465 GET_ERROR (K_STOP); 

: iiB2 16 , 

° '¢ 

3 1188 468 ' Set RECOUNT to the number of bytes read 

+ 1184 469 ! If the file is a terminal format file, then RECOUNT has to be 
3: 1185 470 ! adjusted for the carriage control terminator. 

Me - 

; Hy +3 ot? 2 RECOUNT = .CCB CRABSW_RSZ] + (IF .CCB CLUBSV_TERM_FOR] THEN SELECTONEU .CCB CRABSW_STVO] OF 
: 1190 475 é K_ES Ape} : CCB CRABSW_STV2); 

; 1198 477 4 OTHERWISE : 0; 

3 119 478 TES ELSE 0); 

: 1198 180 | 

8 7¢ 

; 1138 ? ; Return start-1 and end+1 address of record just read 

3 119 4 : 

; 1199 484 CCB [LUBSA_BUF_PTR] = .CCB CRABSL_RBF) - 1; 

3 1200 485 CCB CLUBSATBUF~END) = .CCB CRABSL-RBF) + .CCB CRABSW_RSZ); 
we BBE 

2 7@ 

3 1 05 48 ! Check for an ‘&" as the last character of the record. If it is there, 
: 1204 489 ! it is a continuation character and signifies that there is more data to 
3: 1205 490 ! come in the next record. 

ee ‘ 

> 1208 49 IF .(.CCB CLUBSA_BUF_END] - 1)<0, 8> EQLU K_MAT_CONT_CHAR 
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N 
FLUBSA_BUF_END? = .CCB CLUBSA.BUF END] ~ 1; 
ISBSV“MAT“CONT) = 1; 


SBS ; 
ELSE 
CCB CISBSV_MAT_CONT) = 0; 


END 
ELSE 


'¢ 

! This is a terminal. 
! so the first GET 

Prompt (if a is known. 


transmitter (RECT) can read the first record. 


AX-11 Oh tages Yb On 78e 
BASRTL.SRCJBASRECPRO.B52;1 


Force a no data in the buffer condition 
is done on the element transmitter after 
Set the MAT Input continuation 


the 
flag so that the element 


BEGIN 
CCB CLUBSA_BUF_PTR] = .CCB CRABSL_RBFI; 
CCB CLUBSA_BUF-END] = .CCB CLUBSA_BUF _PTRI; 
CCB CISBS$V“MAT~CONT) = 1; 
END; 
RETURN; 
END; ! End of BAS$SREC_MINO 
OC 8B 00000 BASSSREC_MINO:: 
PUSHR #*M<R2,R3> 
50 00000000° EF 3c 00002 MOVZ AIT, RO 
C 12 00009 BNEQ 
50 CC AB dO 00008 MOVL  =-52(CCB), WAIT_TIME 
06 1 0000F BNEQ 
07 «AB 02 BA 00011 BICB2 #2, 7(CCB) 
8 i 60015 BRB 2$ 
1F AB 0 90 00017 1$: MOVB WAIT_TIME, 31(CCB) 
07 «AB 02 88 00018 BISB2 #2, 7(CC 
00 AO AB FO Ooi 2$: INSV = ¢¢¢B) #0, #1, 7(CCB) 
FE AB 0 & 026 BBC #5, -2(C¢B), 3$ 
oopt 31 99 B BRW irs 
52 B8 AB dO 3$: MOVL -?2(CCB), TEMP_CCB 
FE 05 €0 09 BBS #5, -2(c¢B), 5$ 
FE OA 03 €1 00 BBC #3. -2(TEMP CCB), 5$ 
80 A BC AZ A3 000 SUBW3 “6B (TEMP CCB) ~80(TEMP_CCB), 34(TEMP_CCB) 
28 OA BC A2 DO 0004 OVL  -68(TEMPTCCB). 40(TEMP_CCB) 
5B DD 004 PUSHL CCB 
000000006 09 gi FB O4A CALLS #1, SYS$PUT 
g dO 00051 MOVL RO, RMS STATUS 
00010651 BF 3 D| 0054 cMPL RMS_STATUS, #67153 
000000006 00 Q F 0040 CALLS #0, BASS$SSIGNAL_CTRLC 
07 E 64 4$: BLBS § RMS STATUS, 5$ 
E D4 00067 CLRL 3s = (SP) 
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Routine Base: _BASSCODE + 0231 


251 bytes, 


; Routine Size: 


1 


2520 


; 1235 


LOCAL 
RMS_STATUS 
T_CUB : REF BLOCK C, BYTE); 


LITERAL 
K_E 


VBVBoorooro oo wwe NNN NN 
POPSPIPSMINININNINGNPINININPSNININININIPY 


'¢ 
! Check to see if this is a terminal device. If this is : 
' a terminal then do a GET. GETs for terminals are done each time more 


mM 6 

BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 33 
or 12286871382 94:95:48 EBASRTL SRE BASRECPRO. B92: 1 ’ aa 
3; 1237 1 1 GLOBAL ROUTINE BASSS$REC_RSL1 ! Read element transmitter 
; 1238 § 1 : JSB_RECI = 

; 1239 1 

; 1240 4 1 {+4 

; : rt 2 5 } FUNCTIONAL DESCRIPTION: 

3 % rk 5 ; ; ! BASSSREC_RSL1 reads one record if this is a terminal device. 
3 1244 528 1! Otherwise an error is signalled. 

3 1245 ee Then return start and end+! of user 

; : re] é ? : part of record to be processed as input. 

3; 1248 5 ¢ 1 ! FORMAL PARAMETERS: 

3; 1249 5 1! 

; 1250 534 1! NONE 

; : 23 3 A i IMPLICIT INPUTS 
3 3 2§ 537 1! 

3; 1254 538 1! LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. 
3 1255 273 ie: LUBSA_RBUF _ADR Address of record buffer from OPEN. 
; 1526 40 1! LUBSV_TERM_DEV flag indicating a terminal device. 

3; 1257 541 1! RABSL_RBF Pointer to buffer 

; 1528 2¢¢ 1? RABSW_RSZ buffer size 

3; 1259 545 1! 

; 1260 544 1°! IMPLICIT OUTPUTS: 

; 1261 545 1! 

; \s0¢ 546 1! RECOUNT Own storage for RECOUNT function. 

3; 126 547 1! LUBSA_BUF _PTR points to first char of user part of 
3 1264 548 1! record buffer. 

3; 126 549 1! LUBS$A_BUF _END points to end+! of user part of 

: 126 550 1 ! record buffer. 

; 1$9 351 9! 

3; 126 22¢ 1 ! ROUTINE VALUE: 

3; 126 393 1! 

3; 127 554 1! NONE 

; 555 1! 

; : 228 ' SIDE EFFECTS: 

3; 1 558 1! Reads next record from file on this logical unit. 

3 : 223 ' SIGNALs Insufficient data or any resultant RMS errors. 

3; 1 61 1 

S| 6¢ BEGIN 

3 1 6 

3 7 64 EXTERNAL REGISTER 

3 : 4 CCB : REF BLOCK C, BYTE); 

3 1 7 

3 | 8 

3 1 C) 

31 0 

; : 1 

| g 

i | 4 

3 ' 5 

2 ¥ $ 
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BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 34 
passe 12-800-1 382 OF Shite BASRTL. RC IBASRECPRO.B 2:1 . an. 
: 1294 ze ! data are needed. If this is not a terminal device then error. 

; : 36 &0 Read record into buffer using RMS and check for errors 

: 129 1 

; 1298 286 If (NOT .CCB CLUBSV_ANSIJ) AND .CCB CLUB$V_TERM_DEV] 

; 1299 5 THEN 

3; 1300 584 BEGIN 

; 1301 585 

; 1 4 288 RMS_STATUS = $GET (RAB = .CCB); 

; ! Be 44 IF_.RMS_STATUS EQL RMS$_CONTROLC 

3; 1306 250 BASSSSIGNAL_CTRLC (); 

3; 1307 591 

3 1308 39¢ F_NOT .RMS_STATUS 

3; 1309 59 

3 1310 594 GET_ERROR (K_STOP); 

3; 1311 595 

3 1 \¢ 596 '¢ 

3 131 597 ; ! Return start-1 and end+1 address of record just read 

3 1314 598 ! LUBSA_BUF_PTR is set to the peg jnning= | of the buffer only for BASIC 
3 1315 599 : Input. This is seen as a solution to the problem of the user entering 
; 1316 600 : <return> as the response to a prompt (null input record) and an empty 
3; 1317 601 ! or sophotes buffer which requires another Get. 

; 1318 60 ! The algorithm: 

3 1319 60 ; ! 1) oes LUBSA_BUF _PTR = LUBSA_BUF_END? : ; 

: 1360 604 ! e buffer Ts depleted = another Get is required. 

: 1321 605 3 : ¢} Add one to LUBSA_BUF_PT 

; 1356 2606 3 ! 3) Does LUBSA_BUF_PTR ="LUBSA_BUF_END? 

3 135 4)4 3 ' T: Return the default value. 

3 1324 608 3 ! 4) Scan for the next field. 

3 1325 2609 3 : 

3; 1326 2610 3 f= 

3 1327 2611 3 

3 1328 2612 3 CCB CLUBSA_BUF_PTR) = .CCB CRABSL_RBF) - 1; 

; 1329 2613 3 CCB CLUBSA-BUF-END] = .CCB CRABSL-RBF] + .CCB CRABSW_RSZ); 

3; 1330 2614 3 END 

3 1331 sol? ELSE 

3 1336 616 

3; 133 2617 '¢ 

; 1334 618 ! This is not a terminal device an 

3; 1335 619 $ signet insufficient data unless this is an ANSI INPUT. 

: 1336 620 : ANSI INPUT errors should cause the statement to be restarted. 

3; 1337 621 ! (This happens in BASSS$HANDLER). 

3; 1338 6 § te 

3; 1339 6 

; HF +4 ? ¢ If NOT .CCB CLUBS$V_ANSI] 

3 1306 6 § BASSSSIGNAL (BAS$K_NOTENODAT) 

3 134 6 ELSE 

3 1344 628 BASSSSIGNAL_IO (BAS$K_TOOLITDAT); 

 13e6 880 5 

; ¢ 

3 1329 631 : Update the cursor position if this input was terminated by an escape. 

3; 1348 O36 ! Save cursor position if last PRINT terminator was a semi or comma. 

; HE oi? ; Use BUDDY_PTR ‘cuz we want to use the PRINT data base for channel 0 

| 


7 
BASSSREC_PROC bese =1984 01:01: AX=-11 Bliss-32 V4.0-74 Page 35 
1-095 12-8 08- 1 3be Orie: 48 BASRTL. REeASReCPQO 62:1 . as 
:1 5 635 T_CCB_= .CCB CLUBSA_BUDDY_PTRI; 
:1 é 6 § T_CCB CLUBSL_PRINT_POS] = TIF .CCB CRABSW_STVOJ EQL K_ESCAPE AND .T_CCB CLUBSV.FORM_CHAR] EQLU 1 
> 135 t, THEN ,CCB CRABSW_RSZJ + <T_CCB CLUBSL_PRINT_POS] 7 1 
> 1354 638 ELSE 0); 
3; 1355 639 
: 1356 640 '¢ 
3; 1357 641 ' Set RECOUNT to the number of bytes read 
: 1358 or ' If the file is a terminal format file, then RECOUNT has to be 
3 : + os } adjusted for the carriage control terminator. 
> 1361 645 
; \ 4 646 RECOUNT = .CCB CRABSW_RSZ) + (IF .CCB CLUBS$V_TERM_FOR] THEN SELECTONFU .CCB CRAB$W_STVO) OF 
: 1364 648 K_ESCAPE] : .CCB CRABSW_STV2]; 
: 1365 649 7 : 2: 
; 1366 650 OTHERWISE) : 0; 
3: 1367 2651 $ ES ELSE 0); 
: 1368 g63¢ RETURN 1; 
: 1369 2653 1 END; ! End of BASSS$REC_RSL1 
52 DD 00000 BASSSREC_RSL1:: | 
USHL R2 : 2521. 
4F Al AB 04 £0 0000 BBS #4, -95(CCB), 4$ + 2582. 
38 FE AB 05 €1 0000 BBC #5, -2(CCB), 3$ : 
5B DD 0000C PUSHL (CC : 2586 
000000006 00 01 FB 0000E CALLS #1, SYSSGET : 
52 50 D0 0001 MOVL RO. RMS_STATUS ; 
00010651 8F 52 01 00018 CMPL §_ RMS_STATUS, #67153 > 2588. 
07 12 O001F BNEQ  1$ F 
000000006 00 09 Fe 00021 CALLS #0, BASSSSIGNAL_CTRLC : 2590) 
07 2 EB 00028 18: BLBS RMS STATUS, 2$ > 2592, 
7E 04 00028 CLRL = + 2594 | 
0000v CF 01 Fe 002D CALL § ", GET ERROR ; 
BO AB 28 «AB 01 ¢ 0032 2$: SUBL3 #1. 40(0CB), -80(CCB) : 261 
50 22 AaB 3C 000 MOVZ2WL 34(CCB), RO : 261 
B4 AB 28 BB40 9€ 9005¢ MOVAB  a40(CCBSCROJ, -76<CCB) ; 
1D 11 0004 BRB ; 258 
0D Al AB 04 £0 0044 3$: BBS #4, -95(CCB), 4$ > 262 
7E 006 8F 9A 00049 MOVZBL #BASS$K_NOTENODAT, -(SP) : 262 
000000006 00 tp re 0040 ALLS #1, BASSSSIGNAL ; 
7E 006 8F 9A 00056 4s: MOVZBL #BASSK_TOOLITDAT, -(SP) > 2628 
000000006 00 01 FB 0005A CALLS #1, BASSS$SIGNAL_{0 : 
51 8 AB p 0061 5$: MOVL  -78(CCB), T_CCB > 2635 | 
52 C AB 3C 00065 MOVZWL 1g CCB), R2 > 2636 
18 5 81 0069 CMPW SOR, 2? : 
1 : 006C BNEQ 6 ; 
0c FE AT 02 5 0 $ BBC #2, -2(T_CCB), 6% ; 
30 23 AB ¢ MOVZWL 34(CCB),~RO > 2637 
0 c8 al oC 7 ADDL2 -56(T_CéB), RO ; 
50 06 7B INCL RO : 
08 11 0007D BRB 7$ ; 
D4 OOO7F 68: CLRL = RO + 2636 


a 


rc 


oan: 
' 
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BA REC_PROC bes e 4 01: AX=11 Bliss-32 V Page 36 
pss 1or90p-13be FT i8h:48 == Yasar sae lease cena 682; 1 ge 43 
(8 OAT 0 D 7$: MOVL R 6(T CCB) ; 
15 FE AB 4 9 4 BBC a: sg$cCB), 9 + 264 
18 ; 1 a CMPW + 264 
2 D BNEQ BS" : 
50 OE AB c F mOVZL 4(CCB), RO ; 
0D ee a 38 8$: CMPW H , #13 + 2649 
3 98 BNEQ 3 
50 DO O009A MOVL #2, RO : 
11 00090 BRB 10$ ; 
ps O9F 9$ CLRL oR + 2646 
1 22 ag ¢ OA] 10$ MOVZyL aie B.'s ; 
00000000" EF 0 51 71 AO0AS ADDL RECOUNT : 
0 1 00 S00A0 MOVL #1.R : 3652 
4 BA 00080 POPR a acne + 265 
05 00082 RSB : 
; Routine Size: 179 byies, Routine Base: _BASSCODE + 032C 


; 1370 2654 1 


a 
| 
i 
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 BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 37 
5 12-808-1 382 9780 48 EBASRTL  SRe sacatee 3’ 682:1 . (14) 
GLOBAL BOUT INE BASSSREC_MIN1 ! MAT Input element transmitter 
: JSB_REC1 = 
++ 
FUNCTIONAL DESCRIPTION: 
BASSSREC_MIN1 reads one record and checks for a continuation character. 
Then return start and end+! of user 
part of record to be processed as input. 


FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 
LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. 
9 LUBSA_RBUF _ADR Address of record buffer from OPEN. 
90 LUBSV_TERM_DEV flag sg ogy de a terminal device. 
1 RABSL_RBF Pointer to buffer 
* RABSW_RSZ buffer size 
Soe IMPLICIT OUTPUTS: 
396 RECOUNT Own storage for RECOUNT function. 
397 LUBSA_BUF _PTR points to first char of user part of 
398 record buffer. 
iB LUBSA_BUF _END points to end+! of user part of 
record buffer. 


ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


Reads next record from file on this logical unit. 
SIGNALS any resultant RMS errors. 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LITERAL 
ES 


STATUS; ! Return status to UDF of whether 
! to keep reading 


BRE RR PRR RE RPE RRP RRR EEE PERE EE 
RAUNUNNURIUN =o ao OOODOS OOO 


DNOUES WN "OO OONOUE WO 0@~ 
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14-Sep-1984 
d record into buffer using RMS and check for errors and a continuation character 


| 
; 1429 re ! Rea 
; 1450 71 ! Signal any RMS errors directly. 
3; 1431 714 ! 
; 14 ¢ 715 
13 14 rg if -CCB CISBSV_MAT_CONT] 
3 14 71 HE 
: 1435 At BEGIN 
; 14 71 
: 16 4 4 9 RMS_STATUS = SGET (RAB = .CCB); 
3 tip r § IF .RMS_STATUS EQL RMS$_CONTROLC 
3 1$¢1 4 ¢ BASSSSIGNAL_CTRLC (); 
3 1008 7 $ IF NOT .RMS_STATUS 
3 14466 7 b 
3 1445 728 GET_ERROR (K_STOP); 
3 1446 729 
3 1467 730 '¢ 
3 1448 731 ' Return start-1 and end+! address of record just read 
3 1449 7 § ! LUBSA_BUF PTR is set to the pegranee”? of the buffer only for BASIC 
3; 1450 7 ! Input. This is seen as a solution to the problem of the user entering 
3 1451 734 ! <return> as the response to a prompt (null input record) and an empty 
3 re Ay ! or Saphetes buffer which requires another Get. 
3 145 7 $ !' The algorithm: 
3 14546 ed ' 1) oes LUBSA_BUF _PTR = LUBSA_BUF _END? 
3 1455 7 ' T: The buffer Ts depleted = another Get is required. 
3; 1456 739 : Add one to LUBSA_BUF _PTR 
3 1457 740 ' 5) Does LUBSA_BUF _PTR ="LUBSA_BUF_END? 
3 1458 741 ‘ T: Return the default value. 
3 1459 ree ' 4) Scan for the next field. 
3 1460 sit : 
3 1461 744 t= 
3 re ¢ 745 
3 146 746 ccB here ny 4g ts = .CCB Breage - 1; 
3 sane ot 4 CCB CLUBSA_BUF_END) = .CCB CRABSL_RBF) + CCB CRABSW_RSZ); 
3 1466 749 '¢ 
3 1467 750 ! Check for an ‘8° as the last character of the record. If it is there, 
3 1468 751 ! it is a concinuation character and signifies that there is more data to 
3 1482 Pee ' come in tne next record. ; 
3 1470 75 != 
3 1471 754 
: 167% 755 IF .4.CCB CLUBSA_BUF_END] = 1)<0, 8> EQLU K_MAT_CONT_CHAR 
3 147 73g THES 
3 1476 757 4 BEGIN 
3 1475 758 4 CCB CLUBSA_BUF_END) = .CCB CLUBSA_BUF_END) - 1; 
3 1678 759 4 CCB CISBSV_MAT_CONT) = 1; 
3 147 760 4 
3 1478 761 3 ELSE 
3; 1479 762 CCB CISBSV_MAT_CONT) = 0; 
3; 1480 763 
3 1481 764 '¢ 
3 135 765 ! Update the cursor position if this ingut was terminated by an escépe. 
: 148 706 ' Save the cursor position if Last PRINT terminator was a semi or comma. 
3 re 1 rer ; Use BUDDY_PTR ‘cuz we want to use the PRINT data base for channel 0 


+ 


gis eee! 7 
be elie 1erSep-1986 11:50:58 — EBASRTLSReSeaSnecPRo.682; 1 


3 16 769 3 T_CCB = +68 CLUBSA BUDDY_PTRI; 
: 14 770 T=CCB CLUBSL_PRINT_POS) ="(IF .CCB CRABSW_STVO] EQL K_ESCAPE AND .1_CCB CLUBSV_FORM_CHAR] EQLU 1 
3 14 771 4 THEN ,CCB-CRABSW_RSZJ~+ .T_CCB CLUBSL_PRINT_POS] + T 
3 1489 ie ELSE 0); 
: 1490 77 
: 1491 77% '¢ 
: 1636 775 ' Set RECOUNT to the number of bytes read 
: 149 ae ! If the file is a terminal format file, then RECOUNT has to be 
3 1e0¢ 78 adjusted for the carriage control terminator. 
: 14 77 ' 
3 1497 re 4 RECOUNT = .CCB CRABSW_RSZ] + (IF .CCB CLUBSV_'ERM_FOR] THEN SELECTONEU .CCB CRABSW_STVO) OF 
: 1499 782 4 K_ESCAPE) : .CCB CRABSW_STV2]; 
; 1500 7 4 4 K"CR) : 3. 2 
: 1501 784 4 OTHERWISE) : 0; 
; 130¢ 785 TES ELSE 0); 
: 150 7 6 STATUS = 1; 
3 1504 7 END 
: 1505 788 ELSE 
; 106 789 STATUS = 0; 
3; 150 790 
; 1508 791 RETURN .STATUS: 
: 1509 792 END; ! End of BASS$REC_MIN1 
52 DD 00000 BASSSREC_MINI:: 
PUSHL R2 3 
03 97 AB 01 60 99002 BBS #i, -105(CCB), 1$ ; 
009E 31 0000 BRW 118 ; 
DD OOODA 1$: PUSHL CCB 3 
000000006 00 01 FB 6000¢ CALLS #1, SYSSGET ; 
2 50 D 0001 MOVL RO, RMS STATUS F 
00010651 F 52 01 00016 CMPL §-RMS_STATUS, #67153 ; 
07 12 0001D BNEG 28 : 
000000006 99 99 Fe OO1F CALLS #0, BASSSSIGNAL_CTRLC ; 
0 E8 00026 2$: BLBS § RMS_STATUS, 3$ : 
7E D4 00029 CLRL = = (SP) ; 
0000v CF ot Fe 00 8 CALLS #1, GET ERROR F 
BO AB 28 AB 1 0030 3$ SUBL3 #1. 40(0CB), -80(CCB) ; 
5 32 AB c 99 MOVZ2wL 34(CCB) RO ; 
B4 a8 BB4 ; A MOVAB a40(CCBSCR 2. -76(CCB) F 
5 84 AB p 0040 MOVL =76(CCB), R ; 
26 FF AO 91 00044 CMPB Ss «=1(RO), #38 ; 
09 12 0048 BNEQ $ : 
B4 AB 4A DECL 6(¢¢B) ; 
97 AB 8 0004D BISB2 #2, -105(CCB) ; 
4 11 00051 BRB ; 
97 AB 2 BA 033 4$: Bi cB2 -105(CCB) ; 
5 B8 AB p0 057 5$: VL =-72(CCB), T_CCB : 
52 oC A ¢ 098 MOV2WL 1 (cep), R2 ; 
18 § & F CMP , 27 F 
1 ¢ 943 BNEQ 3 
0c FE AO 02 €1 000 BBC #2, -2(1_CCB), 68 : 
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(14) 


=32 V4.0-74 


y 1 Blis § 
BASRTL. SRC IBASRECPRO.B 231 


AX-1 


Sep- 1986 11:56:58 


te 


1 
1 


DASSPREC PROC 


- So ow Ll So 22°s> 
~ ™~ we L°) @o —oOn 
~ ~ OR ~ ~ reer 
™N Nu CT N ™N eucucuey 
S*e*e*e*e tata ee tate te te *e tea tea te te ae *e *S FH Fe +e 
Dad te 
_— at ®t z 
a @ a ] 
we oO 
- « unr Oo -—uU 
en wo =< cwm 
@ ed ts om ] 
so ww 5 ._ - 
av o~_—e_— - | ~~ A 
@ wun © -—- O&O @Qaor- ww 
vor 't2= wow = & van Da 
ww vw Yv —-Vv 
~o sss ~@ « wAa~Ss + REE 
TN Ae — TVA TONUMUNOO Se Ne << 
8 ee ee eRe Oe COB AMee- “2 
= ) |] 
3 2 3am 
Nowe = 4 BON 304 2M we 
"> ptt SES PFS eS et 5} 
ht Fens Lt $53 Se S2[292S222 
<—OvVYVEOYOLTO OF OrYVE<EOwae 
“- + ee 8 ag St of 
Bo of ARO -—™m 
or fe} on --— 


SOOOCSOOOSOSOSOOOSOSOSOOOSSSoo 


VOOr— FOR RK NV RK KNONR FUR Oe ve 
MVIO— OOWORK Me O- O-— OMY O- ODO 


DOK VK K— FTVOOVUMNOINO Oe —- VOW 
EZINOUMOWMO LOMOOOM MOONS 


1 
EF 


00000000" 


r 
| 


Routine Base: _BASSCODE + O3DF 


173 bytes, 


; Routine Size: 


1 


2793 


3; 1510 


r 


H 7? 
| BASSSREC_PROC 16*Sep-1984 01: AX-11 Bliss-32 v4.0-7 Page 41 
1-09 14-Sep aa Fi 9 ae ig BASRTL SRE TBASRECPRO.B 2:1 9° 48) 


eats ROUTINE BASSSREC_RSLO ! Read I0_END 
JSB_REC9 NOVALUE = 


lee 


3 FUNCTIONAL DESCRIPTION: 
BASSSREC_RSLO is a no-op! 
i {FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
t ROUTINE VALUE : 
NONE 
i SIDE EFFECTS: 


Stata 


WN“ O OONOUESWN “OO OONOuUfwrn 


AA 


ae 


BEGIN 
RETURN; 
END; ! End of BAS$$_REC_RSLO 


Be Se Se Se Ge Se Ge Ge Se Se Se Ge Ge Se Ge Se Ge Ge Ge Ge Se Se Se Ge Ge Ge Se Ss oe 
et a ts i 4 tb ss a a as ss a ss ss ss 


MO CONOUSWN—O 


Rano enon oROR oR ORURURORORURORORURORORORURURURURURUFURUFUTO 
at et epee ter pert fer ter hers SoS OOOO SO OOOD 

SEARS SSO ee 
ey) ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


oOman 


05 00000 BASSSREC_RSLY:: | 
RSB : 2822. 


Routine Size: 1 bytes, Routine Base: _BASSCODE + 048C 


3 1541 2823 1 


a ee de 


| ? 
a daa tt 307-1 98e 91:80:58 — EBAsnre SaeSeasnt chee 692; 1 Page 465 


GLOBAL ROUTINE BASSSREC =fINn9 ! MAT Input I0_END 
: JSB_REC9 NOVAL 


oe 


3 FUNCTIONAL DESCRIPTION: 
BASSSREC_RSLO is a no-op! 
i FORMAL PARAMETERS: 
i NONE 
i IMPLICIT INPUTS: 
i NONE 
IMPLICIT OUTPUTS: 
{ROUTINE VALUE : 
NONE 
i SIDE EFFECTS: 


(2.9 Cd OD Cd CD CD GD CD OD Cd C9 CD CD CD CD 
DOW MEUM O DOS NOU 


— NOIR St 9 A St St SS SS Ss SS SS SS SS SS SS SS SS OS SY SY 


WN “SO OCODNOVUE WN "OOOO w 


FELEESES 


Se Se Se Ge Se Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Se Ge Se Se Se Se Se Se Geers 
tt oS Sh Ss SS Ss SS 2 SS Ss SS SS YS Ss Ls SS 


shhh 4b 4b 4b 4b 4b 4) 4b 4) 4) 4) AD AD ADA 
—-OO0@ w 


MO OONOUS WhO 


co20c000 0000 
Wn & & 


! End of BASSSREC_MIN9 


5 00000 BASSSREC_MIN9:: | 
ne Suney Caeceene : 2852. 


Routine Size: 1 bytes, Routine Base: _BASSCODE + 048D 


3 1572 2853 1 


er 


7 
| PASSSREC PROC 18-Sep-1984 Or: D) ihe AX-11 Bliss-32 Ph ds 2:1 Page 43 


BASRTL.SRC JBASRECPRO (17) 

; 1574 4 1 GLOBAL ROUTINE BASSSREC_ML11 ! MAT Linput element transmitter 
: 1575 5 1 : JSB_REC! = 

3 1 re § 1 

3; 157 + fee 
k ; f 28 : FUNCTIONAL DESCRIPTION: 

; 1580 60 1! BASSSREC_MLI1 unconditional Ly reads one record. There is no 
: 1581 61 1! continuation character for MAT LINPUT. 

3; 15 ¢ 62 1! Otherwise an error is onere' lee. 

3 35 8635 1! Then return start and end+l of user 

3 oF 2 see : part of record to be processed as input. 

H 1386 Beg 1 ! FORMAL PARAMETERS: 

; 158 867 1! 

3; 1588 868 1! NONE 

; 1589 869 1! 

; 1590 870 1! IMPLICIT INPUTS: 

; 1591 871 1! 

3 1238 ore 1! LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. 
3; 159 73 43 LUBSA_RBUF _ADR Address of record buffer from OPEN. 
3 1594 74 «1! RABS$L_RBF Pointer to buffer 

; 1595 i 3 RABSW_RSZ buffer size 

3 1596 876 1! 

3; 1597 877 1 ! IMPLICIT OUTPUTS: 

3; 1598 878 1! 

3 1599 879 1! RECOUNT Own storage for RECOUNT function. 

3; 1600 880 1! LUBSA_BUF _PTR points to first char of user part of 
3; 1601 881 1! record buffer. 

3 1s 882 1! LUBSA_BUF _END points to end+! of user part of 

: 160 883 1! record buffer. 

3; 1604 884 1! 

3; 1605 HH 1 ! ROUTINE VALUE: 

3; 1606 28 1! 

3; 1607 st 1! NONE 

; 1608 888 1! 

3; 1609 889 1 ! SIDE EFFECTS: 

3; 1610 890 1! : f : 

3 1611 891 1! Reads next record from file on this logical unit. 

$ at $838 1! SIGNALS any resultant RMS errors. 

3; 161 893 1 !-- 

3 1614 894 1 

3; 1615 895 BEGIN 

3: 1616 298 

3 1617 89 EXTERNAL REGISTER 

3; 1618 898 CCB : REF BLOCK C, BYTE); 

3; 1619 899 

: 1620 900 LOCAL 

3; 1621 1 RMS_STATUS 

: 16 : T_CUB : REF BLOCK C, BYTE); 

3 1626 904 LITERAL 

3: 1625 905 x ESCApe = 2x'1B', 

3: 1626 K_CR = &x‘OD'; 

3 1627 

: 1628 8 '¢ ‘ 

3 1629 9 ! Read record into buffer using RMS and check for errors 

3; 16 0 ! Signal any RMS errors directly. 


. ¢ 7 


_ 1er$ep-1984 11:56:58 — EBASRILeSReSBASRECPRO.682: 1 P09 9) 


3; 16 911 be 

; 16 318 

; 12 a RMS_STATUS = SGET (RAB = .CCB); 

; 16 5 19 IF _.RMS_STATUS EQL RMS$_CONTROI.C 

; 16 $17 BASSSSIGNAL_CTRLC (); 

; 1635 319 IF NOT .RMS_STATUS 

> 1641 921 GET_ERROR (K_STOP); 

1828 955 $14 . : 

: 1644 924 i Return start-1 and end+1 porrece of record just read 

3; 1645 925 ! LUBSA_BUF PTR is set to the beginning-1 of the buffer only for BASIC 

3 | 9 $ ! Input. This is seen as a solution to Li problem of the user entering 
3; 164 9 ! <return> as the response to a prompt (null input record) and an empty 
3 Mo | 928 ! or Copcones buffer which requires another Get. 

3 164 929 ! The algorithm: 

3 1630 930 ! 1) oes LUBSA_BUF_PTR = LUBSA_BUF_END? 

3; 165 931 ' T: The buffer Ts depleted = another Get is required. 

3 1626 9 § ! ¢ Add one to LUBSA_BUF _PTR 

3; 165 9 ! 3) Does LUBSA_BUF_PTR ="LUBSA_BUF _END? 

3 1654 te ' : Return fhe default value. 

3 10¢? 932 4) Scan for the next field. 

: 1657 937 2 i- 

; 1658 338 CCB CLUBSA_BUF_PTR] = .CCB CRABSL_RBF) - 1; 

; 1659 939 , 608 CLUBSA“BUF"END] = .CCB CRABSL REF + .CCB CRABSW_RSZJ; 

: 1661 941 i Update the cursor position if this input was terminated by an escape. 
$ 1666 3t§ ' Save the cursor position if last PRINT terminator was a semi or comma. 
i 1o97 ot } Use BUDDY_PTR ‘cuz we want to use the PRINT data base for channel 0 

> 1665 945 2 1 CCB = .CCB CLUBSA_BUDDY_PTRI; 

3; 1666 946 T_CcB CLUBSL_PRINT_POS) = (IF .CCB CRABSW_STVO] EQL K_ESCAPE AND .1T_CCB CLUBSV_FORM_CHAR] EQLU 1 
3 1667 2947 THEN .CCB CRAB$W_RSZ] + .T_CCB CLUBSL_PRINT_POS) +71 
: 18 soe i ELSE 0); 

+ 1670 950 2 | Set RECOUNT to the number of bytes read 

3 1671 951 ! If the file is a terminal format file, then RECOUNT has to be 

3 1678 936 adjusted for the carriage control terminator. 

3 1674 994 "RECOUNT =, 08 CRABSW_RSZ) + (IF .CCB CLUBSV_TERM_FOR] THEN SELECTONEU .CCB CRABSW_STVO) OF 
; 16F6 996 anes : .CCB CRABSW_STV2); 

> 1678 958 OTHERWISE) : 0; 

; 1681 961 END; ! End of BASSS$REC_MLI1 


52 DD 00000 BASSSREC_MLI1:: 


? 


ref 


-74 


YoNsAtL snedeasRecPno 62:1 


Sep-1986 11:56:58 


——— 


1 
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-BASSCODE + 048E 


138 bytes, Routine Base: 


3; Routine Size: 


1 


2962 


3; 1682 


4 7 
16-Sep- 
14 


Write list-directed 


BASSSREC_WSLO prepares a record for list-directed output. 


Size (bytes) allocated for record buffer at OPEN. 
Address of record buffer allocated at OPEN 

1 if fixed-length records 

Indicates that the last element transmitter ended 
in a comma or semicolon format char. 

Indicates a forcible device 

Cancel control 0 


‘Pre’ carriage control 

‘Post’ carriage control 

pointer to next byte of buffer 
ointer to byte following the buffer 
ancel control 0 


s of the cancel-control-o bit in the LUB 
0) into the RAB, and clear it from the 
f this is that if the bit is set in the 
modifier will be applied to this write 


BASSSREC_PROC 

12888 

3; 3 963 1 GLOBAL ROUTIN et he pla 
; 1685 964 1 : JSB_RECO NOVALUE = 
3; 16 392 1 

3; 16 9 § 1 te¢ 

3; 1688 967 1 ! FUNCTIONAL DESCRIPTION: 
3; 1689 968 1! 

3; 1690 969 1! 

3 1691 970 1! Then return start and end+1 of user 
: 1996 44 : part of record to be processed. 
3; 1694 3f¢ 1 ! FORMAL PARAMETERS: 

3 1695 974 1! 

3: 1696 975 1! NONE 

3 1697 44 1! 

3; 1698 97 1 ! IMPLICIT INPUTS: 

3 1699 978 1! 

; 1700 979 1! LUBSW_RBUF _SIZE 

3; 1701 980 1! LUBSA_RBUF ADR 

3 1706 981 1! LUBSV_F IXE 

3; 170 9 f 1! LUBSV_FORM_CHAR 

3 1704 983 1! 

3; 1705 984 1! LUBSV_FORCIBLE 

3: 1706 985 1! LUB$V_CCO 

3 1707 986 1! 

3; 1708 987 1! IMPLICIT OUTPUTS: 

3; 1709 988 1! 

3: 1710 989 1! LUB$B_BAS_VFC1 
31711 990 1! LUB$B_BAS_VFC2 

3 Hat 991 1! LUBSA_BUF _PTR 

: 171 992 1! LUB$A~BUF “END 

3 1714 993 1! RAB$V_CCO 

3 1715 994 1! 

3 1716 995 1 ! ROUTINE VALUE: 

3 1717 996 1! 

3 1718 997 1! NONE 

3 1719 998 1! 

3 1760 999 1 ! SIDE EFFECTS: 

3 1721 01! 

; Vice 3001 1 !-- 

3; 172 $058 1 

3 1724 300 BEGIN 

3 1725 Sooe 

3 1726 00 EXTERNAL REGISTER 

3 176? 3508 CCB : REF BLOCK C, BYTE); 
3; 1728 007 

; 404 008 '¢ 

3; 1730 009 ! Copy the current statu 
3 1731 010 ' (possibly set by RCTRL 
3 1736 011 ' LUB. The net effect o 
: 173 Olé ! LUB, then the CANCTRLO 
3; 1734 41 ! operation only. 

3; 1735 014 te 

3 1736 015 

3; 1737 016 ccB RABey cco) = ,CCB CLUB$V_CCO); 
> 1738 O17 CCB CLuB$v~CCO) = 0; 
3; 1739 18 

3: 1740 3019 '¢ 


w$3p-1984 11:50:58 EBASRTLSRE SeASRECPRO.B82; 1 
: 


Page 46 
296 18) 


ASSSREC_PROC 
ei 
3 1741 
3 reg 8 ° 
3 174 0 § 
3 17446 0 
3 1745 024 
3 1268 025 
3 174 0 § 
3 1748 0 
3 1749 0 
; 1750 0 
a a 
3 1738 03 
3: 1754 0 
3; 1755 3034 
3; 1756 $032 
3; 1757 036 
3 1758 3037 
3 1759 ite 
3 1760 039 
3 1761 3040 
3 1006 3041 
3; 176 eoe§ 
3; 1764 304 
3: 1765 3044 
: 1766 3045 3 
3; 1767 3046 3 
3; 1768 3047 § 
3; 1769 3048 
; 1770 3049 2 
3 1771 3050 1 


50 AO AB 
07 AB 01 


OF 


; Routine Size: 63 bytes, 


3 1772 3051 1 


nN 7 
16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 
1 =30071382 94:93:48 BASRIL SREIBASRECPRO. B42: 1 
! If there is a format character pending and this is not a forcible 


! device, then don't change the buffer pointers. The PUT will be done when 
there is no format character pending. 


IF .CCB CLUBSV_FORM_CHAR] AND NOT .CCB CLUBSV_FORCIBLE] THEN RETURN; 


4 

: If the Last statement did not end with a format character, 
! then put a Line feed into the ‘pre’ carriage control 
Unconditionally set the ‘post’ carriage control to null 


CCB CLUB$B_BAS_VFC1) 
CCB CLUB$B_BAS_vFC2) 


+ 

: If the buffer is dirty, then this is recursive 1/0 and we want to | 

! concatenate this record. So leave the buffer pointers alone. Otherwise 
! return the buffer pointers initialized for another statement 


(IF .CCB CLUBSV_FORM_CHAR] THEN BASSK_NULL ELSE BASSK_LF); 
BAS$K NULL; 


{f NOT .CCB CLUB$V_OUTBUF _DR] 
HEN 


BEGIN 
CCB CLUBSA_BUF _PTRI s 237 LUBS$A_RBUF _ADR]; 


cB LUBSA~BUF END] LUBSA-RBUF ADR] + .CCB CLUBSW_RBUF _SiZE); 


RETURN; 
END; ! END OF BAS$$REC_WSLO 


01 02 EF 00000 BASS$REC_WSLO:: 
EXTZvV #2, #1, -96(CCB), RO 
07 50 FO 00006 INSV RO. #7. #1, 7(CCB) 
AO AB 04 BA 0000C BICB2 #4. -96(CCB) 
FE AB 02 £1 00010 BBC #2, -2(CCB), 1$ 
FE AB 06 £1 00015 BBC #6, -2(CCB). 3$ 
FE AB 92 €1 OOOIA BBC #2. -2(CCB). 1$ 
30 D4 d001F CLRL = RO 
03 11 00021 BRB 2$ 
50 gi DO 900 3 1$: MOVL 1, RQ 
DA AB 0 9B 00026 2$: MOVZBW RO. -38(CCB) 
FE AB 03 £0 0002A BBS #3. -2(CCB), 3$ 
BO AB EC AB DO CONF MOVL -20(CCB), -80(CCB) 
50 D2 AB C 00034 MOV2WL -46(CCB). RO 
B4 AB EC BB4 : 0038 MOVAB a-20(CCBSCROJ, -76(CCB) 
05 O003E 3$: RSB 


Routine Base: _BASSCODE + 0518 
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8 8 

 BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 48 
1-095 12286871383 94:90:48 BASRTL. REIBASRECPRO.B$2;1 ° (19) 
3 1774 O26 1 GLOBAL ROUTINE BASSSREC_WSL1 ( ! Write List-directed 

3 170? B27 : CARRIAGE CTRL) = JSB_REC_WSL1 NOVALUE = ! Called from BAS$$DO_WRITE 
3; 1777 055 1 !+4 

H 1778 B28 1 ! FUNCTIONAL DESCRIPTION: 

3 irr O57 1! 

; 1780 058 1! Write one lList-directed record and initialize for the next 

; 1781 059 1! BASSSREC_WSL1 writes one output buffer and then 

3 1786 060 1! initializes the output buffer and returns start and end+1 of user 

: 178 061 1! art of record buffer to be filled by caller. 

3: 1784 p06 1! f this routine is called because the buffer overflowed then the ‘post’ 
>; 1785 065 1! carriage control should be null. If this routine is called because the 
3 1788 bee : margin overflowed, then the ‘post’ carriage control should be ‘CR’. 

3; 1788 066 1 ! FORMAL PARAMETERS: 

: 1789 067 1! 

3 17 pes : CARRIAGE _CTRL.rlu.v carriage control for the record 

: 1 070 1 ! IMPLICIT INPUTS: 

3; 179 071 1! 

3: 1794 Ofe +} LUBSW_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. 
; 1795 075 1! LUBSA_RBUF _ADR Address of record buffer allocated at OPEN 

3: 1796 074 1! LUBSA_BUF _PTR Pointer to next byte in user buffer. 

3; 1797 O75 } RABSL_RBF Pointer to user buffer 

3; 1798 o76 1! 

3; 1799 4 1 ! IMPLICIT OUTPUTS: 

; 1800 078 1! 

; 1801 3079 1! LUBS$B_BAS_VFC1 ‘Pre’ carriage control 

3 1S 3080 1! LUBS$B_BAS_VFC2 ‘Post’ carriage control 

; 180 081 1! LUBS$A_BUF PTR Pointer to start of user part of record buffer 
: 1804 pee 1? LUBS$A_BUF _END Pointer to end+1 of user part of record buffer 
; 1805 083 1! LUB$V_OUTBUF _DR Indicates valid data in the output buffer 

3; 1806 084 1! RABSW_RSZ Size of user buffer 

3; 1807 085 1! 

3; 1808 086 1 ! ROUTINE VALUE: 

3; 1809 3087 1! 

3; 1810 088 1! NONE 

3; 1811 089 1! 

: HE 090 1 ! SIDE EFFECTS: 

3; 181 091 1! : 

3; 1814 092 1! Writes one RMS sequential record. 

3; 1815 093 1! SIGNALS BASSK_FATSYSIO on PUT error. 

: 1816 094 1 !-- 

: 1817 095 1 

; 1818 09 BEGIN 

3; 1819 09 

H 1330 098 EXTERNAL REGISTER 

3; 1821 099 CCB = 11: REF BLOCK C, BYTE); 

; 18s¢ 100 

3; 18 101 LITERAL 

3: 18246 19 K_NO_CR = 2; 

3 13s? 10 

3; 18 $ 104 LOCAL 

> 182 105 RMS_STATUS; 

; 1828 1 

3; 1829 10 '¢ : 

; 18 108 ! Set ‘post* carriage control to CR or NULL depending on whether the margin 


foo 


ames 


—_—_—_——- ——— - —— 


| 8 
| BASSSREC_PROC bese -1984 01:01: : VAX=11 Bliss-32 V4.0-74 Page 49 
oss 14- $P-13be 97:98:48 e EBASRTL SRE BASRECPRO.852;1 (19) 
; ! overflowed or the buffer overflowed. 
: If this is a file, the carriage control is ignored and a record is PuT. 


"CCB CLUBSB_BAS_VFC2] = (IF .CARRIAGE_CTRL EQL BASSK_BUF_EXC THEN BASSK_NULL ELSE BASSK_CR); 


wre 


— — +» — _s 


‘+ 
! perform the record write. 
: et recordsize to actual length of record 


CCB CRABSW_RSZ) = .CCB CLUBSA_BUF_PTR] - .CCB CLUBSA_BUF _BEG); 


te 
! Output buffer to RMS and check for errors 
If errors, SIGNAL_STO 


CCB CRABSL_RBFJ = .CCB CLUBSA_BUF_BEG): 
CCB CLUB$V~OUTBUF_DRJ = 0; 


POAT INIFONININININUNINY ss SD 
WN "OC CBNOUEWNR —OODNAUEWN OD 


III IIS aN trieteiniririeinte 
DOONAN WN “OC OONOUS WO O@ “ 
AAAAAANAA AAA AAW AAA AAA AIA AIA INIA AIAN NIAIAI NAIA AIAN 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

185 

182 RMS_STATUS = SPUT (RAB = .CCB); 

132 IF zAnS STATUS EQL RMS$_CONTROLC 

1S? BASSSSIGNAL_CTRLC (); 

185 HH IF NOT .RMS_STATUS 

185 $ TH 

185 3 PUT_ERROR (K_STOP); 

1860 38 

1861 39 '¢ 

186¢ 40 : Set the ‘pre’ carriage control to LF if CARRIAGE_CTRL warrants it. 
186 41 ! Set the ‘post’ carriage control to null. 

1B6$ 23 ‘3 

1866 44 CCB CLUB$B_BAS_VFC1) = (IF .CARRIAGE_CTRL EQL BASSK_BUF_EXC THEN BASSK_NULL ELSE BASSK_LF); 
1867 45 CCB CLUBSB_BAS_VFC2) = BASSK_NULL; 

1868 £6 

1869 4 + 

1870 48 ! Initialize record buffer for another List-directed write 

1873 r4 return record buffer pointers to caller 

187 51 

1874 2g CCB CLUBSA_BUF _PTR] = .CCB FL UBSA Rout oe : 

1875 5 CCB CLUBSA_BUF_ENDJ = .CCB CLUBSA_RBUF_ADR) + .CCB CLUBSW_RBUF_SIZE); 
1876 54 RETURN; : 

1877 55 ND; ! End of routine - BASSSUDF_WSL1 


OC BB 00000 BASSSREC_WSL1:: 
PUSHR 


#*M<R2,R3> 3 3953 
33 D4 00002 CLAL 3; 311 
08 0 f 0004 CMPL CARRIAGE _CTRL, #8 3 
06 12 00007 BNEQ 1$ : 


LC 
Be Se Oe Se Be Oe Oe Oe Se Se ee FH Se Se Ge FH Oe Os Ge He Se Se Se Oe Se Se Os Oe Oe Se Oe Oe Oe Sees Se Be ee eee Seee te ae eee 
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an 


; Routine Size: 109 bytes, 


; 1878 3156 1 


v—¢cOc— ee 


Routine Base: 


8D 6 
ee 
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: 

33 
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soo 
ee 
wu 
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vo 
ee 
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Boiss | YeNsAt esas saseat cote ase.1 


(CCB), 70( CCB), 34(CCB) 
CCB). 40(CCB) 

a, - (cép) 

#1, SYSS$PUT 

RO, RMS STATUS 

RMS_STATUS, #67153 

#0, BASSSSIGNAL_CTRLC 

RMS STATUS, 4$ 


#1, PUT_ERROR 
R3, 5$ 


Pa9e 45) 


rer ey 


egppes ret 2 a ae 16-8 


pa19be 11:56:58 — EBASRTL SRESBASRECERO.692;1 
' 


| 
; 1880 157 1 GLOBAL ROUTINE BASSSREC_RMFO ! Initialize read memory formatted 
3 : 81 ; 8 ! : JSB_RECO NOVALUE = 
3; g 160 1 !4¢ 
; : ¢ 19) : FUNCTIONAL DESCRIPTION: 
3 Hy; 188 7 ! Pick up pointer to last major frame from ISB and initialize BUF BEG, 
; 188 164 «1! BUF _PTR, arid BUF_END to the values for the data area found in the 
>; 1888 165 1! frame. 
>; 1889 196 1} 
; 1890 167 1 =! FORMAL PARAMETERS: 
; 199) 168 1! 
3 3 4 192 13 NONE 
; 189 170 1! 
> 18946 171 1°! IMPLICIT INPUTS: 
; 1895 \7¢ +! 
>; 1896 175 1! ISBSA_MAJ_F _PTR pointer to last Basic major frame 
3; 1897 174 ~«6«1«5 
; 1898 175 1°! IMPLICIT OUTPUTS: 
; 1899 176 1! 
; 1900 177 1 >! ROUTINE VALUE: 
; 1901 178 1! 
3 1308 179 1! NONE 
3; 190 180 1! 
; 1904 181 1°! SIDE EFFECTS: 
3; 1905 ise 1! 
: 1906 1 1! NONE 
; 1907 H+ 1! 
; 1908 185 1 !-- 
: 1909 196 1 
; 1910 \3 BEGIN 
3; 1911 188 
3 Hb ar 13% EXTERNAL REGISTER 
3; 191 1 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
3; 1914 191 
3 1915 136 LOCAL 
; 1916 19 BMF : REF BLOCK CO, BYTE] FIELD (BSFSMAJOR_FRAME); 
3 1917 194 
; 1918 195 '¢ 
3: 1919 1 ! Reach back into the Last major frame oy pitching up the value of R11 stored 
: 1920 19 ! in the ISB, Initialize BUF_PTR, BUF_END, BUF_BEG so that this will look 
3: 1921 198 ! Like a vanilla INPUT. 
3; 19 ; 199 '- 
3 19 00 
3 + 3 4 : BMF = .CCB CISBSA_MAJ_F _PTRI; 
: ++ 
3 1996 08 ' If this cell is zero, then there was no DATA statement and an error should be 
3 19 04 ! signalled. 
3 ; 05 le 
3 ps : oF If .BMF CBSFSA_CUR_DTA) EQLA 0 THEN BASSSSTOP_IO (BASSK_OUTOF _DAT); 
3 1982 09 ccB PLUBSA BUF BES = .BMF PBSESA_CUR_DTA $ 
3 1332 10 CCB CLUBSA_BUF_END) = .BMF LBSFSA_END_DTA); 
: 1988 12 
; :¢ 
3; 1936 18 ! Subtract one from CUR_DATA for INPUT element transmitter compatibility. 


———-—~ 


paneer 


BASSBREC PROC 


; Routine Size: 43 bytes, 


3 1942 3219 1 


le 
CCB CLUBSA_BUF_PTR] = 
RETURN; 


52 FF48 

53 0087 

7E 00 
000000006 00 
BC AB 

BS AB 0088 

BO AB FF 

Routine Base: _BAS$ 


BMF CBSFSA_CUR_DTA] = 1; 


o 
o 


BB 00000 BASSSREC_RMFO:: 
BUSHR 


U 
CB dO 00002 MOVL 
C2 00 00007 MOVL 
0B 12 0000C BNEQ 
G 8F 9A Boog MOVZBL 
01 FB 0001 CALLS 
53 00 00019 1$ MOVL 
C2 00 Ba Ose MOVL 
AS 9E 000 MOVAB 
OC BA 00028 POPR 
05 0002A RSB 
CODE + 05¢4 


If te i HAE 


yA X-11 Bliss-32 v4.0 
BASRTL.SRC BASRECPRO. 8 2;1 


#°M<R2,R3> 
-1 4(¢CB), BMF 
3 (BMF), R3 


seASSK QUTOF pat. 
1, BASSSSTOP_10 


tea) 
He PT 
-1(R3), =80¢ 
»R3> 


-(SP) 


Page 52 


(20) 


$$$ __—_ 1, 


3 1944 0 1 GLOBAL BOUT INE BASSSREC_MRE1 ! Mat Read element transmitter 
; 1945 : 2 : JSB_REC! = 

: 1268 1 

3; 194 1 !e4 

: 1268 2 | FUNCTIONAL DESCRIPTION: 

3; 1950 8 1 Since MAT a just takes as much input data as it can get, it will just 
3 132) \ return a failure here because there is no more data. 

; 1983 § 1 | FORMAL PARAMETERS: 

3; 1954 01! 

; 1322 ie i NONE 

; 1229 § 1 i 

3; 195 1 | IMPLICIT INPUTS: 

; 1958 4 1! 

3; 1959 5 1 NONE 

; 1960 3 1 

3; 1961 1 | IMPLICIT OUTPUTS: 

3; 1962 $3 1 

3; 1963 9 1 NONE 

3; 1964 40 1! 

3; 1965 41 1 | ROUTINE VALUE: 

; 1306 ¢g 1 

3: 196 43,13 Returns failure - out of data. 

; 1968 44 1! 

3; 1969 45 1! SIDE EFFECTS: 

; 1970 rf 1 

3; 1971 47, 1 As a result of the failure being returned, the MAT READ will stop 
3 1378 48 1! filling the matrix. 

3; 197 49 1! 

3: 1974 50 1 i- 

3; 1975 $2! 1 

3; 1976 ; 26 § BEGIN 

3; 1977 25 RETURN 0 

3; 1978 3254 1 END; ! end of BASSSREC_MRE1 


50 D4 00000 BASSSREC aetes 
05 00002 RSB 
Routine Size: 3 bytes, Routine Base: _BASSCODE + OSEF 


RO 


; 1979 3255 1 


8 
‘BAsSgRec proc sE-sep-1964 01:07:12 yAK-11 BLisg-32 y4.0-74g, age 53 


(21) 


i 3330 
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COOooo ~~ 
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3; Routine Size: 12 bytes, 


; 2014 3289 1 


H 8 
ergo 438s FT i8kise = YEKSAT Ske 
! 


OBAL ROUTINE BASSSREC_RMF1 ! Read element transmitter 


JSB_REC1 NOVALUE = 


+4 
' FUNCTIONAL DESCRIPTION: 


BASSSREC_RMF1 should not be called in normal processing and will signal 
an error (BASSK_OUTOF _DAT) if it is called. 


i FORMAL PARAMETERS: 


i IMPLICIT INPUTS: 


NONE 


i IMPLICIT OUTPUTS: 
i ROUTINE VALUE: 


NONE 


i SIDE EFFECTS: 


Signal - BASS$K_OUTOF_DAT = Out of Data 


BEGIN 

BASSSSIGNAL (BAS$K_OUTOF_DAT); 

RETURN; 

END; ! end of BASSSREC_RMF1 


7E 00G 8F 


000000006 00 01 FB 00004 
Os 0008 


_BASSCODE + 05F2 


9A 00000 BASSSREC_RMF1:: 


CALLS #1, BASS$SIGNAL 
RSB 


Routine Base: 


Yast hata 


MOVZBL #BASSK_OUTOF DAT, -(SP) 


bRO-692: 1 Page 335 


— 


8 
pe Hees O01 YMGH Megshea ete 8o78 Page (03) 
' 
| 


3 1g 90 1 GLOBAL ROUTINE BASSSREC_RMF9 ! Read I0_END 
3; 201 91 #1 : JSB_REC9 NOVALUE = 
; 201 92 1 
3; 201 95 1 lee 
3 6 , 32 1 } FUNCTIONAL DESCRIPTION: 
; : § : Update the current data pointer in the Last Basic major frame 
; 2024 98 1 | FORMAL PARAMETERS: 
; 2025 99 1! 
; 20 $ 00 1! NONE 
: $058 Oe} i IMPLICIT INPUTS 
3 2029 0§ 1! 
3 2030 04 1! NONE 
; 0 : 86 : IMPLICIT OUTPUTS 
3 O38 309 1! 
; 20 308 1 ! ROUTINE VALUE: 
: tA 309 1! 
; 20 310 1! NONE 
: $38 313 i i SIDE EFFECTS 
3 2039 318 1! 
3; 2040 314 1 !<- 
; 042 318 BEGIN 
; b¢8 319 
3 2044 3318 EXTERNAL REGISTER 
3 See $355 CCB = K_CCB_REG : REF BLOCK (CO, BYTE); 
3 2047 3331 LOCAL 
; at $3 § BMF : REF BLOCK CO, BYTE] FIELD (BSFSMAJOR_FRAME); 
: 2056 3394 '¢ 
3 2051 325 : Set the current data pointer in the frame to BUF_PTR + 1. 
3 O36 3326 ! The one is added because Input initialize will subtract one from BUF_PTR. 
: 205 3327 ! This whole matter is explained in 10_BEG. 
3 2054 328 te 
3 2055 44 
3 2056 330 F = .CCB CISBSA_MAJ_F PIR: 
3 2057 331 F CBSFSA_CUR_DTA) =".CCB CLUBSA_BUF_PTR) + 1; 
3 soo8 336 RETURN; 
3; 2059 33 ND; ! End of routine BASSSREC_RMF9 
50 FF48 CB DO 00000 BASSSREC_RMF9:: 
OVL -184(CCB), BMF : 0 
0087 0 BO AB 01 ¢1 00005 ADDLS #1, -80(CCB), 135(BMF) > 3331. 
5 0000C RSB 3 3 


; Routine Size: 13 bytes, Routine Base: _BASSCODE + OSFE 


PASSEREC PROC rbegeo-t96e 01:01:12 aR-I1 BLisg=52 vé,0-702, Page se 
; 2060 3334 1 | 


k 8 
ogg -PROe 1er$ep-1984 11:58:58 — EBASRTLsSRe SaASReCPRO.882: 1 P08 285 


GLOBAL ROUT BASSSREC_GSE ( ! GET (sequential) a record 
FOREIGN BUFFER, : 


3 


LOCK_FLAGS 
) : JSB_BO_READ NOVALUE = 


Sees 


oe 
FUNCTIONAL DESCRIPTION: 


& 


Read one record. Update RECOUNT if successful. 
If a foreign buffer is specified, then change RABSL_RBF to point to the 
foreign buffer’. Otherwise, signal a fatal error. 
FORMAL PARAMETERS: 


FOREIGN BUFFER. rl.v priate to CB of foreign buffer or 0 


a ee te be 
AUISWN OD” 


Cooooooooooo 
DP PPP ASIII EBS BS BS BEE WA 


OONAUES AN O ODONOAUE WN" OOOnOu 


e 1 
3 1 
; 1 
3 1 
; 1 
; 1! 
3 1! 
3 13 
3 1! 
; 1! 
3 1! 
' 
; 1; 
; 1} 
3 1! 
: ? 3 17 LOCK_FLAGS.rlu.v its to set in RAB ROP for manual 
; 8 1! record locking (0 if none) 
3 4 3 : IMPLICIT INPUTS: 
3; 2081 1! RABSW_USZ User buffer size of foreign buffer 
3 ¢ 3 e RABSL _UBF Pointer to user buffer for foreign buffer 
3; 208 3 . 7 LUBSL_WAIT_TIME Wait time for next input 
3 one : : WAIT The module level OWN WAIT 
3; 2086 3 1 ! IMPLICIT OUTPUTS: 
3 2087 360 1! 
3 2088 361 1! RABS$B_RAC Record access field : 
; 2089 306 1! RE COURT Own storage for RECOUNT function. 
; 2090 63 1! RABS$L_RBF Record pointer in RAB. ; 
3 $93 rf: : RABSW_RSZ Number of bytes read (stored in RECOUNT) 
3; 209 366 1 ! ROUTINE VALUE: 
3 2094 367 1! 
3; 2095 368 1! NONE 
; 2096 +37 1! 
3 2097 370 1 ! SIDE EFFECTS: 
; 2098 ‘Bes. p 
3; 2099 36 1! RABSW_USZ and RABS$W_UBF are altered while this routine is running, 
+ 2100 373 1! but are restored before exit. ; ; ; 
: 2101 374 1! Reads next record from file on this logical unit. 
3 4 32 1! SIGNALS any RMS errors 
3; 210 6 1 !-- 
; 108 3) BEGIN 
: 5 379 
3; 210 380 EXTERNAL REGISTER 
3; 2108 381 CCB : REF BLOCK C, BYTE); 
3; 2109 3 § 
3; 2110 P 
3 2111 384 FOREIGN_BUFFER : REF BLOCK C, BYTE); 
; Vie WH 
3 211 ; $ CAL 
3 2114 8 RMS_STATUS, 
3 2115 388 AVE_uS2 ' Save the USZ_ _ 
3 2116 389 ACTUAL_RS2, ' Actual record size 
; i 339 ; WAIT_TIME; ! Current wait time 
. :¢ 


woovono 


SRLSRRAN 
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4 
3448 
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8 
1b-se -1984 01:01: AX-11 Bliss-3 
1a-8ep-19 4 94:92:48 BASRTL.SRCIBA 
' Save USZ in case it is modified. It is faster to always 


! save and restore it, since that eliminates the test for foreign 
buffers and single-character mode at the end of this routine. 


SAVE_USZ = .CCB CRABS$W_USZ); 
fa scaveye has been specified, store information in the RAB to tell 


MS about it. If no timeout has been specified, clear the TMO bit 
n case there was an earlier timeout specified. 


RECP 


Scamcmcmsm 
rr +l) 


1+ 
: If WAIT is zero then use the LUB's wait. This is to provide upward compatibility 
- i.e. existing EXE's can run with the LUB wait value in V2.2. 
; WAIT_TIME = ( IF ( .WAIT EQL O ) THEN .CCB C LUBSL_WAIT_TIME ] ELSE .WAIT ); 
ul C.WAIT TIRE EQL 0) 
a CRABSV_TMO] = 0 

BEGIN 

CCB CRABS$B_TMO) 

iS RABSV 


- WAIT_TIME; 
THO) = 1; 


'¢ 
' Set the Read-no-echo RMS bit based on the user's last call to 
: ECHO or NOECHO. 


CCB CRABSV_RNE) = .CCB CLUB$V_NOECHO); 


~ 


Set the record pointer field in the RAB to the user buffer. This is 
eens on + element transmission and not just at OPEN because of RMS 
ocate mode. 

Fill the input buffer with Nulls. Basic semantics require null fill if 
the record read is shorter than the buffer. : 

Set the record access field in the RAB to sequential. Perform the GET. 
If RMS returns a failure status, signal the error. If the GET is 
successful, then update recount. 


IF (.FOREIGN_BUFFER NEQA 0) 
THEN 
BEGIN 


i A foreign buffer was specified. Save off RAB$L_usz of the ‘‘file’’ channel 
! and then substitute the appreor late values from the foreign channel into 
: the file channel to make the record go directly into the foreign buffer. 


cc CRABSW_USZ) = .FOREIGN_BUFFER CRABSW_USZ); 


'¢ 
! If the user has called ONECHR, shrink the effective size of the 
! buffer to one character, so he will get characters one at a time. 


2 V4.0- 
S 


80. 682:1 


Page 58 


(24) 


-o | 


ASSSREC_PROC 


; 176 449 
it i 
: 173 re 
> 2181 454 
3; 21 ¢ 455 
3 21 $28 
3 2% $2 

: $182 re 
3 +t 460 
3; «188 461 
HB i 
3: 2191 464 
: 135 465 
3; 219 466 
3 2194 467 
3; 2195 468 
3 2196 469 
3 2197 470 
3; 2198 471 
a3 RA 
3; 2201 3th 
3 one 3475 
; 220 s078 
3: 2204 477 
3; 2205 3478 
3 § 06 3479 
3; 2207 3480 
3; 2208 3481 
3 $s08 a786 
3; 2210 348 

3; 2211 3484 
3 si¢ 3485 
3; 221 486 
3 2214 487 
3; 2215 488 
3 2216 489 
: 3518 toy 
1: 
3 $5 494 
3: 22 ; 495 
3 de 496 
3 2226 497 
3: 2225 498 
3 $$6 499 
s 2e 500 
3 8 501 
; 9 206 
3 0 50 

: 3 504 
3 350 


~N 
w 
La od 


4 8 
1o-8eb7 138s 9}i8h:48 = AXSS 


‘ae call ONECHR before each GET, so we clear the ONECHR 


IF (.CCB CLUBSV_ONECHR)) 
THEN 


HRI = 0; 


13 


BEGIN 
CCB PLUBSY ONES 
CCB RAB$W_USZ] 


CCB CRABSB_RAC) = RABSC_SEQ; 


1+ 
Set bits in the RAB ROP (careful not to turn off ULK). 


CCB CRABSL_ROP] = .CCB CRABSL_ROP] OR .LOCK_FLAGS; 
RMS_STATUS = $GET (RAB = .CCB); 
IF .RMS_STATUS EQL RMS$_CONTROLC 
BASSSSIGNAL_CTRLC (); 
IF NOT .RMS_STATUS 
HEN 
= BEGIN 
We cannot call GET_ERROR because we must restore UBF and US2. 


CB CRABSL_STS] EQL RMS$_RSA) DO 


5 . 
(RAB = 
R 


.CCB); 
(RAB = .CCB); 


te 
! Clear RAB ROP bits so that a subsequent 1/0 operation does not 
inherit them. 


CCB CRABSL_ROP] = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 
'¢ 

: terminal device then it wi 
ACTUAL_RSZ = .CCB CRABSW_RSZ); 


1 at PPR ast 
TL. SRC JBASRECPRO.B52;1 


! This actual record size may or may not change below. If the file is a 
l get terminators tacked on to the record read. 


te 
: Tack on the terminators when a terminal device file, just Like INPUT LINE 


P 59 
29° 24) 


nN 8 
BASSSREC_PROC 16-Sep-1984 01:01:1 AX-11 Bliss-32 V4.0-74 Pa 60 
wit 1e28ep 71882 3159555 BASRTL SRE IBASRECPRO. B92: 1 9 28) 
H 3 206 If .CCBCLUBSV_TERM_DEV] 
; 4 50 THE 
; 5 508 BEGIN 
; § 509 LITERAL K_ESCAPE = %x‘1B', 
: 510 K_CR = £x'OD', 
; 8 511 K_CRLF = &X'OAOD'; 
; 9 21§ 
3; 2240 51 + 
; ¢} 212 STVO is the escape character, STV2 is the number of terminating characters. 
; ¢s 218 SELECTONEU .CCB CRABSW_STVO] OF 
3: 2245 516 K_ESCAPE) : 
3 r¢ 519 4 BEGIN ‘ 
3 224 520 4 !+ 
3; 2248 521 4! If the length is one then escape is not at the end of the buffer and it 
3 $08 5 ¢ 4 ! must be moved there, otherwise the escape sequence is at the end of the 
3 $20 : ; ; ! buffer following the data. 
; $26 3525 4 IF .CCB CRABSW_STV2] EQLU 1 
3; 225 3526 4 THEN 
3; 2254 3527 5 EGIN 
3 2255 3528 5 IF .CCB CRABSW_RSZ] GEQU .CCB CRAB$W_USZ) 
; $28 $26) 5 THEN BAS$$STOP_I0 (BASS$K_RECFILTOO); 
3 2257 3530 5 CHSMOVE (1,UPLTT(K _ESCAPE),.CCB CRABSL_UBF] + .CCB CRABS$W_RSZ]); 
: $26 3531 5 ACTUAL_RSZ = .ACTUAL_RSZ + 1; 
3; 2259 3236 5 END 
: 2260 323 4 ELSE 
3; 2261 534 4 ACTUAL_RSZ = .ACTUAL_RSZ + .CCB CRABS$W_STV2); 
; $06 3535 3 ND; 
3; 226 3536 3 CK_CR] : 
3 $see 3537 4 BEGIN 
3; 2265 3538 4 IF .CCB CRABSW_RSZ2) + 2 GTRU .CCB CRAB$W_USZ) 
3 5566 $275 4 THEN BAS$$STOP_I0 CoA ae RE EE TL TO): 
3; 2267 540 4 CHSMOVE (2,UPLTT(K_CRLF)>.CCB CRAB$SL_UBF] + .CCB CRAB$W_RSZ)); 
>; 2268 3541 4 ACTUAL_RSZ = .ACTUAL_RSZ + 2 ; 
3 2269 s206 ; END; 
: 370 354 COTHERWISE) : 
3 2271 544 3 3 
3 sf¢ 3545 3 TES; 
3; 227 3546 END; 
: sie $208 
3 2275 548 '¢ 
3 $f $2¢8 ! If there are no errors, null pad the buffer. 
: $505 3ea9 $7 
3 279 $226 (.CCB CRABSW_USZ] GTR .ACTUAL_RSZ)AND .CCB CRABSL_STS) 
3; 2281 554 CHSFILL (%xX'00', 
3 cae 555 -CCB CRABSW_USZ] - .ACTUAL_RSZ, .CCB CRABSL_UBF] + .ACTUAL_RS2); 
‘Be BBG, 
; +4 238 : Before checking for errors, restore UBF and USZ, and set RECOUNT. 
3 $B9 3560 CCB sping = .CCB CLUBSA_UBF); 
: 2288 26! CCB _CRAB$W_USZ2) = .SAVE_USZ; 
3 2289 3562 RECOUNT = JACTUAL_RSZ; 


spusdceibiaatnantithaeibaie 
| 
9 
BASSSREC_PROC 1b-se -1984 01:01: AX-11 Bliss-32 V4.0-74 
|BASSS a aet Ori 9ei te BASRTL SREIBAGRE CPO. B82: 1 
; 2290 267 '¢ 
s 91 64 ! | error remaining (which will be an error other than Record Stream 
3 229 28? ' Active, RSA) is fatal. 
3 9 28 t= 
3 2294 56 
: 41 268 IF ( NOT .CCB CRABSL_STS]) THEN BASS$STOP_IO (BAS$K_IOERR_REC); 
; $538 570 CCB CLUBSA_RBUF_ADR) = .CCB CRABSL_RBF); 
: 3298 571 RETURN; 
: 2299 572 1 ND; ! End of BASSSREC_GSE 
00608 -BLKB 1 
0000001B 0060C P.AAA: .LONG 37 
Q0000A0D 00610 P.AAB: .LONG 2573 
.EXTRN SYSSWAIT 
3C BB 00000 BASSSREC_GSE:: 
PUSHR #*M<R2,R3,R4,R5> 
SE 10 ¢2 90002 SUBL2 #16, SP 
54 51 00 0000 MOVL R1, 
08 AE 0 AB 9E 00008 MOVAB 32(CCB), 8(SP) 
04 AE 8 BE 3 00000 MOVZWL @8(SP), SAVE_USZ 
51 00000000' cf ¢ 90012 MOVZWL WAIT, R1 
. 9 9001 BNEQ 1$ 
51 CC AB 00 00018 MOVL -52(CCB), WAIT_TIME 
52 04 AB i OOO1F 1$ MOVAB 4(CCB), R2 
51 D 000¢3 TSTL  WAIT_TIME 
06 12 00025 BNEQ 2$ 
03 A2 02 8A 900¢? BICB2 #2, 3(R2) 
08 11 00028 BRB 3$ 
1F 51 90 00020 28: MOVB WAIT_TIME, 31(CCB) 
03 A2 02 88 00031 BISB2 #2, 3(R 
03 A2 01 00 AO AB FO 00035 3$ INSV -96(CCB), #0, #1, 3(R2) 
50 D 00 c TSTL FOREIGN BUFFER 
05 13 0003 BEQL 4 
08 BE 20 ad B80 00040 MOVW §§ 32(FOREIGN BUFFER), a8(SP) 
08 AO AB 01 Et 90045 4$: BBC wi, -96(CCB), 5$ 
Ad 02 8A O004A BICB2 #2, -96(CCB) 
08 ®BE 01 80 0004 MOVW #1, aB(SP) 
1E AB 94 00052 5$ CLRB. —- 30 CCB) 
62 34 C8 0005 BISL2 LOCK_FLAGS, (R2) 
B DD 0005 PUSHL (CB 
000000006 99 1 FB 005A CALLS #1, SYSSGET 
' DO 00061 MOVE RO, RMS STATUS 
00010651 F D1 00064 CMPL  RMS_STATUS, #67153 
07 12 00068 BNEQ 
000000006 00 99 FB 99 CALLS #0, BASSSSIGNAL_CTRLC 
1£ EB 00074 $$: BLBS RMS STATUS 8s 
000182DA_—s BF 08 AB D1 00077 7$: CMPL g<CCB). #99034 
14 12 0007F BNEQ $ 
5B DD 9081 PUSHL CCB 
000000006 00 gi FB 00083 CALLS #1, SYSSWAIT 
B DD O00BA PUSHL 
000000006 00 01 FB 0008 CALLS #1, SYSS$GET 


-—_- —----—-- --- 
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(24) 
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| 


BASSSREC_PROC 
32385 * 
| 
| oc 
60 FE 
000000006 
24 8B 
oc 
50 08 BE 
» 000000006 
oc 
Oc AE 08 BE 
6E 24 
50 00 
24 
68 
00000000' 
000000006 
EC 


; Routine Size: 


; 2300 


338 bytes, 


3573 1 


52 


7E 
00 
42 


oom OMoMwom oo 


MESHSTRE RESSA SREXSH SS SF 


Routine Base: 


22 
oc 


OE 
08 
006 


"e 
0 


02 


006 


wn" 
m 
“MN 
oO 


ooowoo oOCOOo°o 
BWOLOOo OO@ee 


Nm 
oo 


[DOM FPOWOO HPVVNIUVIP WP OOWOD — PrwouVirourvin 
DOWD —- "WOWMN0 POTD LM "WMO WVIo@vyyww Sr 


AB 


w-> 
oO 


_BASSCODE + 0614 


1 
1 
11 9 
ge 95 8$: 
f 9 
Dd 44 
4 0 7 
eit 
B Ag 
i¢ OAC 
° OA 
2 0008 
74 4 
9A OBA 
FB 0008 
90 Babe 9$: 
D6 OOOCC 
11 QOOCF 
3C 00001 108: 
CO 00005 
11 00009 
B1 000DB 11S: 
12 QOODE 
9E O00E0 
ED OO0E4 
1E QOOEA 
9A QOOEC 
FB QOOFO 
C1 QOOF? 12$: 
BO OOOFC 
CO 00101 
ED 00105 13$: 
15 0010C 
+ Ba) 96 
€ 0011 
C2 Botta 
C1 QO1IA 
2c 00120 
Bat 5 
DO 00127 148: 
BO 0012C 
DO 00131 
E8 00139 
Bi 
00 $147 15$: 
C aiae 
Ba 14F 
5 00151 


g 
G-Sep-1964 01:07:12 yaneHt BLisg=32,y4.0-742. 


BASRTL.SRC 


7$ 
hock FLAGS, (R2) 


CCB), #1 
SP), R2 


AS$K_RECFIL 
ASS th 


PAWS & Orv & 
APRA 


at ~(SP) 
B) R23 


#13 


Nm—-2-- wa P Ue 


2), RO 
#i6, aB(SP), RO 


AS$K_RECFILTOO, -(SP) 

1, BASS$STOP_IO 

6(CCB), R2, RO 

P.AAB, (RO) 

3, ACTUAL _RSZ 

#0, #16, @B(SP), ACTUAL_RSZ 


8(CCB), 148 

ags(SP). RO 

ACTUAL_RSZ, RO 
ACTUAL-RSZ, 36(R11), (SP) 
#0, (SP), #0, RO, ad(SP) 


-100(CCB), 36(ccB) 
SAVE_USZ, @8(SP) 
ACTUAL _RSZ RECOUNT 
g(CCB) 15$ 

#1. BASSS$STOP_10 
40(cCB), -20(TCB) 


#°M<R2,R3,R4,R5> 


MO-WOWOSWUO: — 
re Der He 


$23, 
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. 9 

PASS REC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 v4.0- Pa 3 
09 1er8ep= 1986 1iserss «— oasnTe sae SansRe coeo 52:1 9 28) 
; Be 574 1 GLOBAL gt BASSSREC_GIN ( ! GET (inde xed) a ord 

3 bi af? : KEY_NO, REL_OP, KEY, FOREIGN_BUFFER, LOCK. FLAGS) : JSB_REC_ IND! NOVALUE = 
|§ $ap2 1} i ade, DESCRIPTION 

3 8S 258 1! 

: 2508 580 1: Read one record. Update RECOUNT if successful. 

3 9 581 1! If a foreign buffer is specified, then change RABSL_RBF to point to the 
; 1? é ¢ } ‘foreign buffer’. Otherwise, signal a fatal error. 

3 \§ 2 2 : FORMAL PARAMETERS: 

5 14 5 $ 1/ KEY_NO.rl.v key of reference number 

3; 2315 587 1: REL_ OP. v ative relationship of the key 

: 16 588 1 i KEY.rt.dx hey to — for 

: 17 589 1: FOREIGN BUFFER. rl.v ts to ° of foreign buffer or 0 

; 2318 590 1: LOCK_FLAGS.rlu.v bits to s bet “tn we ROP to control manual record 
3; 2319 591 1: locking (0 if none) 

3 sy 236 1 i 

3 1 593 1! IMPLICIT INPUTS: 

3 356 594 1 | 

3; 232 595 1: RABSwW_USZ User buffer size of foreign buffer 

3 $35¢ hs : RABSL_ UBF Pointer to user buffer for foreign buffer 

; $358 598 1 ' IMPLICIT OUTPUTS: 

3; 2327 599 1: 

3; 2328 600 1: RAB$B_RAC Record access field 

: 2329 01 1: RECOUNT Own storage for (RE Count function. 

3 seee 602 1 RABSL_RBF Record pointer in 

; $3 1 603 1! RABSW_USZ User buffer size N. "tile" buffe 

3 336 604 1! RABSL_UBF Pointer to user buffer for “file” buffer 

: 233 3605 1! 

: ite 60 1/ ROUTINE VALUE: 

3: 2335 607 1: 

3; 2336 608 1! NONE 

3: 2337 609 1! 

3; 2338 610 1 |! SIDE EFFECTS: 

3; 2339 611 1: 

3; 2340 ors 1! Reads next record from file on this logical unit. 

3: 2341 613 1: SIGNALS any RMS errors 

3 <0§ 14 1i- 

3: 234 15 1 

3 eee 3018 BEGIN 

3 306 618 EXTERNAL REGISTER 

3 4 oi) CCB : REF BLOCK C, BYTE); 

3: 2349 621 MAP 

3; 2350 6 § KEY : REF BLOCK (8 TE), ! descriptor of the key 

3 331 6 ; FOREIGN_BUFFER : REF’ BLOCK {. BYTE); 

3 3 5 LITERAL 

3 54 $ K_EQU ' keys should be equal 

3; 2355 6 K “GREATER Poum = ! key should be greater than or equal 
: $28 : 3 K-GREATER_THAN = 2° ! key should be greater than 

3; 2358 630 LOCAL 


9 

1-se 1984 01:01: AX=11 Bliss-32 V4.0-74 Page 64 
132800138 94:90:48 BASRTL. RESBASRECPRO. B92: , (285 
RMS_STATUS, 

SAVE_USZ; ! Save the USZ 

'¢ 

: Save JSZ in case it is modified. It is faster to always 

: save and restore it, since that eliminates the test for foreign 
buffers and single-character mode at the end of this routine. 


SAVE_USZ = .CCB CRABSW_USZ); 


'¢ 


Set the record pointer field in the RAB to the user buffer. This is 
a 7 element transmission and not just at OPEN because of RMS 
ocate mode. 

Fill the input buffer with Nulls. Basic semantics require null fill if 
the record read is shorter than the buffer. 

Set the record access field in the RAB to sequential. Perform the GET. 
If RMS returns a failure status, signal the error. If the GET is 


6 
rh successful, then update recount. 
651 
3028 IF .FOREIGN_BUFFER NEQ 0 
65 THEN 
54 BEGIN 
i 
3657 the file channel to make the record go directly into the foreign buffer. 
3659 ; CCB CRABSL_UBF) = .FOREIGN_BUFFER CRABSL_UBF); 
3660 CCB CRAB$W_USZ] = .FOREIGN-BUFFER CRABSW_USZ); 
3661 END; 
366 
366 '¢ . 
3664 : Set the record access field to key. Set KBF to the key. Set KSZ to the 
5 ' the size of the key passed. Set the aey of reference to the desired key. 
i Use a case statement to toggle KGT and KGE in the ROP. 
668 ‘ 
669 CCB CRABSB_RAC] = RABSC_KEY; 
670 CCB CRABSL-KBF) = .KEY CDSC$A_POINTER); 
671 CCB CRABSB_KRFJ) = .KEY_NO; 
O76 CCB CRABSB_KS2) = i »KEY COSCSB_DTYPE] NEQ DSCSK_DTYPE_P 
674 -KEY COSCSW_LENGTH] 
675 ELS 
676 (.KEY COSCSW_LENGTH]/2 + 1)); 
8 CASE |, REL_OP FROM K_EQUAL TO K_GREATER_THAN OF 
80 
1 CkcQuAL} : 
o8 CCB CRABSV_KGE) = CCB CRABSV_KGT) = 0; 
oss CK_GREATER_EQUAL J 3 
$ CCB CRABSV_KGE) = 1; 
68 CCB CRABSV_KGT) = 0; 


[ 
'¢ 
! A foreign buffer was specified. Substitute the appropriate values from the foreign channel into 


= SSREC PROC 


; 241 

3 ci? 89 
3 8 oe 
3; 2420 69 
3: 2421 69 
3; 24 ¢ 94 
3 re 844 
3; 2425 35 
3; 24 S 698 
: 24 $7? 
3; 2428 00 
3; 2429 701 
3; 24350 70 
$03) 04 
3 o38 05 
3; 246 706 
3 2435 707 
3; 2436 708 
3 2437 709 
3; 2438 710 
3; 2439 711 
: 2440 at; 
3 2461 71 
3 244 714 
: 266 715 
3 24464 716 
3 26465 717 
3: 2446 718 
3 2467 719 
3: 2448 720 
: 2449 is! 
3; 2450 7 § 
3; 2451 us 
3; 245 724 
aay: 133 
3 2655 558 
3 2456 728 
3 2657 729 
3; 2458 730 
7 2459 a3! 
3; 2460 7 § 
3: 2461 7 

: 246 7 

3 246 735 
3 2464 7 

: 2465 7 

3: 2466 738 
: 2467 739 
3; 2468 740 
3; 2469 741 
: 2470 74 
3 2671 74 
3: 2472 744 


REPSPIPOPIPOPIPINININIMPIPYUR PINPININININININNWAE & & 


BA. 
1eaSepm19be 81:50:88 — EBASRTLesRe 


END; 
CK_GREATER_THAN] : 


G 
CCB CRABSV_KGT) = 1; 
CCB CRABSV_KGE = 0: 


END; 
TES; 
14 


i Set bits in RAB ROP without turning off ULK. 
CCB CRABSL_ROP) = .CCB CRABSL_ROP] OR .LOCK_FLAGS; 
RMS_STATUS = SGET (RAB = .CCB); 
= »RMS_STATUS EQL RMS$_CONTROLC 
BASSSSIGNAL_CTRLC (); 
IF NOT .RMS_STATUS 
‘ BEGIN 
; We cannot call GET_ERROR because we must restore UBF and USZ. 


oe a CRABSL_STS) EQL RMS$_RSA) DO 
SWA = ,CCB); 
SGET (RAB = ~ CCB); 
END 
END; 
'¢ 


i Turn off bits in RAB ROP so that subsequent 1/0 operations can not 
_inherit them. 


CCB CRABSL_ROP) = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 

'¢ 

: If there are no errors, null pad the buffer. 

me (.CCB CRABSW_USZ) GTR .CCB CRABSW_RSZ]) AND .CCB CRABSL_STS) 


NCHSFILL (2x'00", 


'¢ 
: Before checking for errors, restore UBF and USZ, and set RECOUNT. 


CCB CRABSL_UBF) = .CCB CLUBSA_UBF); 
CCB CRABSWlUS2] = .SAVE_USZ; 


cj 


s$-32 V 
BASREC 


CCB CRABSW_USZ] - .CCB CRABSW_RSZJ, .CCB CRABSL_UBF) + .CCB CRABSW_RSZ}); 


PRO.89251 


Page 8 


| 
9 
BASSSREC_PROC 18-5 sep -1 AX-11 Bliss-32 V4.0-7 P 
atts ae es Pa Se ee Pg Pa age 88 
3 re tt? RECOUNT = .CCB CRABSW_RSZ]; 
3; 2475 oS ! on | error remaining (which will be an error other than Record Stream 
3: 247 re ' Active, RSA) is fatal. 
: sei te 
3 rt i IF ( NOT .CCB CRABSL_STSJ) THEN BASSS$STOP_IO (BASS$K_IOERR_REC); 
; 2481 7 '¢ 
3; 248 I i This is frosting on the cake. LUBSA_RBUF_ADR points to the record buffer for 
; 248 755 i MOVE. The buffer —y hr change due to RMS Locate Mode. Currently, Locate Mode 
3 2484 738 i is not performed on +, oni ch UPDATE or PUT. However, in anticipation that 
: the Pet a RMS may add such a Bas lity, we point RBUF ADR off to the buffer used by PUT. 
: 2487 759 CCB CLUBSA_RBUF _ADR] = .CCB CRABSL_RBFI; 
: 2488 760 RETURN; 
3; 2489 761 ND; ! End of BASSS$REC_GIN 
3C BB 00000 BASSS$REC_GIN:: 
PUSHR #*M<R2,R3,R4,R5> 3: 3574 
7E 20 AB 3C 00002 MOVZWL 32(CCBS, SAVE_USZ + 3639) 
5 0 00006 TSTL FORE IGN_BUF FER 3: 3652) 
OA 1 BORoe BEQL 1$ 3 
24 «AB 24 A3 00 88 OA MOVL £3 (7 ORE ON _purren 36(CCB) 3 3638 | 
20 AB 20 A 8 OO0F MOVW pad bbs BUFFER), 32(CCB) 3: 3660. 
1 AB 01 90 00014 1$: MOVB #1, 30(CCBY 3 $093 | 
Hy AB 04 A2 00 00018 MOVL 4(KEY), oy (cca) 3: 3670) 
5 AB 50 90 00010 MOVB KEY_NO, 53(CCB) 3: 3671) 
15 02 A2 91 00021 CMPB ggkE¥). #21 3; 3672) 
05 13 4 5 BEQL $ 3 
52 be 3C 00027 MOVZWL (KEY), R2 3 3674) 
08 11 QO002A BRB 3$ 3 
28 62 3C 0002C 2$ MOVZWL (KEY), R2 3; 3676. 
5 02 C6 0002F DIvL2 , Re : 
5 Be 0032 INCL 3 
34 5 4 3$: MOVB se(ccg) ; 367 
04 AB 9€ 00038 MOVAB rx (cB ae : 3682 | 
0 51 CF 0003C CASEL eel oP, #0, #2 : 367 
001 0000 0006 0040 4$ - WORD ¢5-48- 3 
$-48° : 
02 A2 40 =8F $A 0046 5$: BICB2 #64, 2(R2) ; 3682. 
10 11 00048 BRB BS, 3 
08 A 0 88 00040 6$: B1SB8 sf Re} : 3686 | 
0 A 40 F BA th BICB aes, R2) : 3687 | 
02 A 40 > ap 0038 7$ BIsB2 4, 2¢R2) : 63 
$5 tS 0 gf 26 ge: bibs mes. sf RS) : 3693 | 
6 4 C8 1 9$: BISL LOCK FLAGS, (R2) ; 3701. 
’ DD PUSHL 8” : 3703 
000000006 3 ; 08 p 66 cats 4¥ svsseet | : 
00010651 8 : D 890 CMPL Rag ratos. #67153 : 3705 


EEE nn 


BASSSREC PROC 
000000006 
| 000182DA 


000000006 
000000006 


22 


51 00 
4 
20 
00000000" 


000000006 
EC 
3; Routine Size: 242 bytes, 


; 2490 3762 1 


mMOOMS "Oe MOo-o-oS BY S S 


Routine Base: 


i 

08 AB 

‘i 

iH 

1 

ge 

4 

20 «AB 

1D 

| AB 

0 AB 

80 

32 AB 
7 

0 

60 

9¢ AB 

6€ 

22 «AB 

08 AB 

01 

01 

28 AB 

4 

C 

_BASSCODE 


SoooooooeoooooSSSSS 


OWVWOO*OMUDS VOWOWWN 9-9 "Oo -oO mn 
VFS OODMDOOO MPCOOCONOENO OD -O-Dl@Won—-@eenr 


n35p=1986 11:50:38  EBASRIL SRETBASRECPRO. B82; 1 
128: 


13$: 


14$: 


ey testes cmc 
§¢ CCB), #94034 


ccB 
#1, SYSSWAIT 


ccé 
ee ttt 


DAW wir - & 


Of wo 


j 

) 

>, RO 

»> RO 

P§, #0, R1, (RO) 
cB), 6(CCB) 

) 


a4, 
#*M<R2,R3,R4,R5> 


ere < tks ? tae Share ie 9 
“BASSgREC, proc 1b-sep-1964 01:07:12 yAK=I1 BLing-32 y4.0-742 age, 68 


GLOBAL ROUTINE BASSSREC_GRE ( ! GET (relative) a record 
FOREIGN BUFFER, LOCK_FLAGS) : JSB_DO_READ NOVALUE = 


Fo 


co 

So 

oO 
PRoPoPonoPoNoRoNoRoPORINININONIPOPONINIDS 2 2 9 2 tt 0 


ee 


FUNCTIONAL DESCRIPTION: 


Read one record from a relative file. Modify the RAB if necessary for 
foreign buffers. Update RECOUNT if successful. Otherwise, signal a fatal error. 


FORMAL PARAMETERS: 
FOREIGN_BUFFER.rl.v The address of the CB of a foreign 
buffer or 


LOCK_FLAGS.rlu.v bits to set in the RAB ROP to control 
manual record locking (0 if none) 
IMPLICIT INPUTS: 


RABSW_RSZ record size for foreign buffer 

RABSL _UBF buffer address for foreign buffer 
IMPLICIT OUTPUTS: 

RABSB_RAC Record access field 

RE COURT Own storage for RECOUNT function. 

RABSL_RBF Record pointer in RAB. 

RABSW_USZ record size of file buffer 

RABSL _UBF address of buffer for file buffer 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 


SIGNALS any RMS errors 


PAAAAO 


SSLERRANVLS 
pn ee Bi Bn i i i i 


“ 
COOOooo NNN 


PWN O OONAYLSWN "OVOONOu 


785 


i a 


Mrmrroronrn 


BEGIN 
EXTERNAL REGISTER 


NOUS WN —O OONOUSWN OO 


SSN 


; 24 
3 24 
; 25 
; 
: 25 
: 25 
iB 
3 25 
: 25 
: 25 
; 25 
3 @ 
3; 25 
; 25 
; 25 
3 @ 
3 25 
3; 25 
3 25 
; 25 
3 25 
: 25 
3 25 
: 25 
: 25 
3 25 
3 25 
3 25 
: 25 
3; 25 
3 @ 
: 25 
3 @ 
3 25 
3; 25 
3 25 
3 25 
3 25 
; 25 
3 25 


31 

3 80 CCB : REF BLOCK C, BYTE); 

303 

5 £08 FOREIGN_BUFFER : REF BLOCK C, BYTE); 

0. LOCAL 

38 509 RMS_STATUS, 

39 10 SAVE_uSZ; ! Save the uS2 
40 11 
541 \ '¢ 
54 1 ! Save USZ in case it is modified. It is faster to always : 
54 14 ' save and restore it, since that eliminates the test for foreign 
2e8 ? : buffers and single-character mode at the end of this routine. 
46 13 "  SAVE_USZ = .CCB CRABSW_USZ); 
54 H 
548 1 '¢ 
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ASSSREC_PROC these -19846 01:01: AX-11 Bliss-32 V4.0-74 Pa 69 
oe ty er ee=i8ee 1:80:58 — BAsate SReieasaechso BS2:1 9° 26) 
Set the record pointer field in the RAB to the user buffer. This is 

rok each element transmission and not just at OPEN because of RMS 

ocate mode. 

Fill the Tosa buffer with Nulls. Basic semantics require null fill if 

the record read is shorter than the buffer. 

Set the record access field in the RAB to sequential. Perform the GET. 

If RMS returns a failure status, signal the error. If the GET is 

successful, then update recount. 


IF .FOREIGN_BUFFER NEQ 0 
THEN 
BEGIN 


i There is a foreign buffer. Modify the file buffer to point to the 
buffer associated with the foreign buffer's channel. 


CCB CRABSL_RBFJ = CCB CRABSL_UBF] = .FOREIGN_BUFFER CRABSL_UBFI; 
exp RABSW_RSZ2J] = CCB CRABSW_USZ] = .FOREIGN_BUFFER CRABS$W_USZJ; 


ELSE 
CCB CRABSL_RBF) = .CCB CRABSL_UBFI; 


CCB CRABSB_RAC) = RABSC_KEY; 


BEEF FW Wwwiwnonoponopenorereonony 


PWN OOo SO AUN ODO Or Un UR 


He "set bits in RAB ROP without destroying ULK. 
CCB CRABSL_ROP] = .CCB CRABSL_ROP] OR .LOCK_FLAGS; 
RMS_STATUS = $GET (RAB = .CCB); 
IF .RMS_STATUS EQL RMS$_CONTROLC 
BASSSSIGNAL_CTRLC (); 
fy wot »RMS_STATUS 
- BEGIN 
; Wwe cannot call GET_ERROR because we must restore UBF and USZ. 


VEU “OO OONOUSWN OO 


WHIL 


SELESRANLSSELEARAN SS SSIS ARAN LSSSIEF- 


'¢ 
! Turn off bits in the RAB ROP so that subsequent 1/0 operations can not 
: inherit them, 


ees Pw teal al al al ah sh Al Ah Ab Ab Ab db Ab Ab Ab Ab ib hb Ab Abedb bh ah db sh sb ah sb sl al al al sl 
wh— 


AANA AIAIA AAAI AIA 
(C0 00 On: 
SRO ono 
RIPIPIPIMININIWIWE & 
bad 
Se 
m>P>ao- 
ae ee 
+zZ0 
~~ 
za 
oF 
" 
" 
oe 
o 
~@ 
id 


ao 
ar 


Be Bo ee Be Be Be Be Oe Oe Oe Oe Oe Oe Be Oe Os Oe Os Be Oe Be Be Oe Oe Oe Os 5 Oe Oe Os Os Oe Os Oe Oe Oe Os Oe Os OF Os Os OF Os OF Os OF OF Os Os Ss Ores SH Sears 
FUFUSUSUSUSISISISISIN 
SF SS SSS = 
oO MEW 0 OONAOUSWN—O” 
WA.AWN AN AAAI AANA AAI AA AAA AAAI AAAI 


ASSSREC_PROC 1bese -1984 01 AX-11 Bliss-32 p 70 
#438 ereee=h 88s PiiSods =| aXsAT Ose Seagate chgo eS2:1 20 26). 
; oof 74 CCB CRABSL_ROP] = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 

: 7 ‘+ 
: a1 If there are no errors, null pad the buffer. 
$ 261 
; oi¢ bss it ae -CCB CRABSW_USZ) GTR .CCB CRABSW_RSZJ) AND .CCB CRABSL_STS) 
: 2614 ass CHSFILL (%x'00', 
; el6 see .CCB CRAB$W.USZ)] = .CCB CRABSW_RSZ), .CCB CRABSL_UBFJ] + .CCB CRABSW_RSZ)); 
3 261 ‘4 
: oi3 Bs Before checking for errors, restore UBF and USZ, and set RECOUNT. 
5 2620 891 CCB CRABSL_UBF = CB CLUBSA _UBFI; 
3; 2621 E36 CCB CRABS$W_USZ ysis 
: ¢ ser RECOUNT = 7CCB CRadsu. Visy 
3 26204 895 i Any error cone ining fe (which will be an error other than Record Stream 
; 3s sae i. Active, RSA) is fatal 
: 2627 898 
3 698 444 IF ( NOT .CCB CRABSL_STS]) THEN BASS$S$STOP_IO (BASS$K_IOERR_REC); 
i 2630 901 2 !+ 
3 26% 90 i Set LUBSA_RBUF _ADR to point to the buffer used by RMS. It may move around 
i Os so07 due to Locate Mode. 
; 634 905 2 CCB CLUBSA_RBUF_ADR] = .CCB CRABSL_RBF); 
3 2635 906 RETURN; 
3 2636 3907 ND; ! End of BASSSREC_GRE 
3C BB 00000 BASSS$REC_GRE:: 
" PUSHR #*M<R2,R3,R4,R5> : 3763. 
52 51 0 0000 MOVL & 3 
7€ 20 AB 3C 0000 MOVZWL 32(CCB), SAVE_USZ : 3817) 
50 05 00009 TSTL FORE IGN_ “BUFFER ; 3830. 
1A 13 00008 BEQL «= 18 2 | 
51 24 Ad 00 00000 MOVL 36(F REIGN BUFFER), R1 ; 3837 
4 AB 2! bd 0011 MOVL R1, 36(CCBY 3 
8 AB 1 p 0015 MOVL R1. 40(CCB) 3 
50 20 AO 0019 MOVZWL 33(F REIGN BUFFER), RO : 3838) 
0 AB 2 80 001D MOVW RO, aac ceed 3 
2 AB BO 00021 MOVW RO, (CCB) 3 
05 11 000 ; BRB ¢ ; 383 
28 AB 24 = AB 58 1$ MOVL 6(C C68). 40(CCB) 3 384 
1E AB 9 C 28 MOvVB #1 ce CB) 3: 384 
04 AB 2 ¢8 000 BISL2 LOCK_FLAGS, 4(CCB) > 384 
5B 0D 00 PUSHL ccB ; 385 
000000006 ° 1 FB 00 CALLS #1, svssesr 3 
9 dO 00 b MOVL RO, RMS_STA ; 
00010651 FF D1 0004 CMPL RMS_ STATUS, Ver153 > 3853 
7 12 00047 BNEQ 33” 3 


—E—————_ 


| BASEBREC PROC 


; Routine Size: 


000000006 
000182DA 


000000006 
000000006 


23 


00 
4 
0 
00000000" 


000000006 
EC 


195 bytes, 


00 


Ouummuu— +» D4 


ronom>sy > & 
Bom>r OD moo-oco-oO ® 


w 
m 


Routine Base: 


08 


—Pvnowowu Pw 
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AB 


50:58 


9 
Ib-se -1984 01 
122808= 188s 9 
FB 00049 CALLS 
eB 59 $: BLES 
9 53 4$: CMPL 
2 00058 BNEG 
DD 00050 PUSHL 
FB 0005 CALLS 
bd 00066 PUSHL 
F 0006 CALLS 
11 9006 BRB 
cc 0007] 58 XORL2 
tee ey 
B bore BLBC 
€ 00080 MOV ZL 
C 00084 MOV2WL 
C2 00088 SUBL 2 
C 00088 MOV ZuL 
£9 0008 ADDL 2 
€ 00093 Move 
00098 
D0 00099 68 MOVL 
80 00095 Movi 
€ QO0A MOVZWL 
ES OOOAA BLBS 
CE OOOAE MINE GL 
FB 00081 CALLS 
DO 00088 7$ MOVE 
CO 000BD ADDL2 
BA 000C0 POPR 
05 000¢2 RSB 


-BASSCODE + 0858 


vane Bliss-32 V4, 0-748 

BASRTL. SRC JBASRECPRO.B32;1 
BASSSSIGNAL_CTRLC 
STATU 

te), #99034 


SYSSWAIT 


MO R—-O—-Oe-— ZO 
a- @ mm 


BAW DWWIWOw!n &BORBONOD RB 


2OooOo Oo; 


0, R1, (RO) 


36(CCB) 
HA 


Af Pe OO LOS 


woownm I 


#1. BASS$$STOP_IO 
40¢cCB), -20(TCB) 


#°M<R2,R3,R4,R5> 
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BASSSREC_PROC 6-Sep-1984 1: AX-11 ot =32 V4.0-7 Page 72 
itt oreeen8ks 91:95:38 — EBasate SReleasee chee 692; 1 9 275 
H $38 908 1 GLOBAL ROUTINE BASSSREC_GRFA ( ! GET ys RFA) a record 
3; 2639 909 1 FOREIGN_BUFFER, LOCK_FLAGS) : JSB_DO_ READ NO VALU 
; 2640 910 1 
3; 2641 911 1 te4 
; ti aig : FUNCTIONAL DESCRIPTION: 
3; 2644 914 1! Read one record from a file. Modify the RAB if necessary for 
; ot? ai? ; foreign buffers. Update RECOUNT if successful. Otherwise, signal a fatal error. 
H i 319 1 ! FORMAL PARAMETERS: 
3; 2648 918 1! 
3; 2649 919 1! FOREIGN_BUFFER.rl.v The address of the CB of a foreign 
; 2650 920 1! buffer or 0 
; 2651 921 1! LOCK_FLAGS.rlu.v bits to set in the RAB ROP to control 
; 636 9 ¢ 1} manual record locking (0 if none) 
3 eh tg : : IMPLICIT INPUTS: 
3; 2655 925 1! RABSW_RSZ record size for foreign buffer 
3; 2656 3g8 1! RABSL_UBF buffer address for foreign buffer 
; 2657 3927 1! 
; 2658 3928 1 ! IMPLICIT OUTPUTS: 
; 2659 3929 1! 
; 2660 3930 1! RAB$B_RAC Record access field 
3: 2661 931 1! RECOUNT Own storage for ‘ReCount function. 
; O66 938 1! RABSL_RBF Record pointer in 
; 266 933 1! RABSW_USZ record size of ttle. Sottes 
3 2664 934 1! RABSL _UBF address of buffer for tile buffer 
3; 2665 3935 1! 
3; 2666 3936 1 ! ROUTINE VALUE: 
3; 2667 3937 1! 
3; 2668 3938 1! NONE 
3: 2669 3939 1! 
3; 2670 3940 1 ! SIDE EFFECTS: 
3; 2671 3941 1! 
3; 267 $008 1! SIGNALS any RMS errors 
3; 267 943 1 !e- 
3 2674 soee 1 
3; 2675 945 BEGIN 
3; 2676 3946 
3; 2677 3947 CuTeRM REGISTER 
3; 2678 3948 : REF BLOCK C, BYTE); 
3; 2679 949 
3 2680 950 
3; 2681 951 FORE IGN_BUFFER : REF BLOCK C, BYTE); 
3; 268 536 
3; 268 95 CAL 
3 2684 954 RMS_STATUS, 
; 2685 955 SAVE_USZ; ! Save the US2Z 
: 2686 956 
3 2687 957 '¢ 
3; 2688 328 ! Save USZ in case it is modified. [t is faster to always 
3; 2689 95 ' Save and restore it, since that eliminates the test for foreign 
3 on 360 _buffers and single-character mode at the end of this routine. 
3; 269 366 SAVE_USZ = .CCB CRAB$W_USZ]; 
3: 269 96 
3 2694 964 '¢ 


———— 


N 
BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Pa 73 
1-095 13-808- 1982 04:93:48 A ASRTLe Se IBAgRE CPRO. B42; 9° 29) 
; 2695 965 ' Set the record pointer field in the RAB to the user buffer. This is 
: O38 298 ! done on each element transmission and not just at OPEN because of RMS 
; 269 96 ' Locate mode. : 
; 2698 968 ! Fill the input buffer with Nulls. Basic semantics require null fill if 
3; 2699 969 ' the record read is shorter than the buffer. 
; 2700 970 ' Set the record access field in the RAB to sequential. Perform the GET. 
; 2701 971 ! If RMS returns a failure status, signal the error. If the GET is 
; 270 44) ' successful, then update recount. 
3; 270 97 im 
3; 2704 974 
3 2705 975 IF .FOREIGN_BUFFER NEQ 0 
3 At 3r6 THEN 
: 270 97 BEGIN 
3; 2708 978 + 
3; 2709 Seep ! There is a foreign buffer. Modify the file buffer to point to the 
3 ry +4 } buffer associated with the foreign buffer's channel. 
3 at 338 CCB CRABSL_RBFJ = CCB pRasst Use = .FOREIGN_BUFFER CRABSL_UBFI; 
3 ni? Sonz CCB CRAB$W_RSZJ = CCB CRABS$W_USZ] = .FOREIGN_BUFFER CRAB$W_USZJ; 
3 2715 3985 ELSE 
3 rig Sons CCB CRABSL_RBFJ = .CCB CRABSL_UBF); 
3; 2718 988 CCB CRABSB_RAC] = RABSC_RFA; 
3 2719 989 
3; 2720 990 + ‘ 
3: 2721 3991 ! Set bits in RAB ROP without destroying ULK. 
aes Bg 
; 734 3998 CCB CRABSL_ROP] = .CCB CRABS! ROP] OR .LOCK_FLAGS; 
3 2726 3996 RMS_STATUS = $GET (RAB = .CCB); 
3 2727 3997 
3; 2728 3998 IF .RMS_STATUS EQL RMS$_CONTROLC 
: 1° 3999 HEN 
; 2730 4000 BASSSSIGNAL_CTRLC (); 
3 2731 4001 
; 36 4002 IF NOT .RMS_STATUS 
3; 273 400 THEN 
3 2734 4004 BEGIN 
3; 2735 4005 '+ 
3; 2736 4006 ! We cannot call GET_ERROR because we must restore UBF and USZ. 
3: 2737 4007 !- 
3 2738 4008 
3; 2739 4009 wie (.CCB CRABSL_STS] EQL RMS$_RSA) DO 
: 2740 4010 4 EGIN 
3 2741 4011 4 $SWAIT (RAB = .CCB); 
: me htt} 4 $GET (RAB = .CCB); 
3 274 401 ; END; 
3: 2744 4014 
3 2745 4015 END; 
3: 2746 4016 
3: 2747 4017 '¢ ; 
3 2748 4018 ! Turn off bits in the RAB ROP so that subsequent 1/0 operations can not 
3: 2749 4019 ' inherit them. 
: 2750 $358 le 
: 2751 4021 


10 
BASSSREC_PROC 16-se 1984 01:01:1 AX-11 Bliss-32 V4.0-74 Page 74 
$8888 22868-1984 1125053 BASRTL.SRC IBASRECPRO.BS2; 1 9° (27) 
; f ¢ 8 ¢ CCB CRABSL_ROP) = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 
3; 27546 Py 4 ‘+ 
; f é rt ‘ If there are no errors, null pad the buffer. 
: 27 40 
; 2758 4028 IF (.CCB CRAB$W_USZ] GTR .CCB CRABSW_RSZJ) AND .CCB CRABS$L_STS) 
; 2759 4029 THEN 
: 2760 4030 CHSFILL (%x'00', 
: 269 rt -CCB CRABSW_USZ] = .CCB CRABSw_RSZ], .CCB CRABSL_UBFJ + .CCB CRAB$W_RSZ]); 
: 276 603 1+ 
3 8 rt ¢ Before checking for errors, restore UBF and USZ, and set RECOUNT. 
; 2r66 1038 CCB CRABSL_UBF) = .CCB CLUBSA_UBFI; 
3: 2767 4037 CCB CRABSW_USZ) = .SAVE_USZ; 
3 sree ret: RECOUNT = .CCB CRABSW_RSZ); 
; 2770 4040 ! Any error remaining (which will be an error other than Record Stream 
3; 2771 4041 ' Active, RSA) is fatal. 
3 site rey le 
3; 277 404 
: sire thee IF ( NOT .CCB CRABSL_STSJ]) THEN BASS$STOP_IO (BASS$K_IOERR_REC); 
; gire 4046 '¢ 
3 2777 4047 ' Set LUBSA_RBUF ADR to point to the buffer used by RMS. It may move around 
: 78 shee ' due to Locate Mode. 
; 2780 4050 3 CCB CLUBSA_RBUF _ADR] = .CCB CRABSL_RBFI; 
: 2781 4051 RETURN; 
3; 2782 4052 1 END; ! End of BASSSREC_GRFA 
3C BB 00000 BASSSREC_GRFA:: 
PUSHR #*M<R2,R3,R4,R5> ; 3908 
52 51 pO 0000 MOVL R1, 3 
7E 20 AB 3C 0000 MOVZWL 32(CCB), SAVE_US2Z : 3% 
50 05 00009 TSTL FOREIGN. BUFFER : 397 
1A 13 00008 BEQL 1$ 3 
51 24 AO 00 00000 MOVL go (Fee 16 BUFFER), R1 3; 3982 
4 AB 2} 4 Bete MOVL R1, giccey ; 
8 AB 1 g 15 MOVL R1, 40(CCB) : 
50 20 «AO 0019 MOVZ2WL 32(FOREIGN BUFFER), RO : 3983 
38 AB 28 8 Baie MOVW RO, 32(CCBY 3 
AB 9 ° 3 1 MOV RO, 34(CCB) 3 
0 1 00 ; BRB ¢ ; 3975 
28 AB 24 =O bo 1$: MOVL g(cce) 40(CCB) : 5986 
1€ AB O2C 2$: MOVE #2, 30(¢CB) : 3988 
06 AB C8 000 BISL2 LOCK_FLAGS, 4(CCB) : 3994 
B DD 000 PUSHL CcB ; 3996 
000000006 9 1 FR 00 CALLS #1, SYSSGET : 
DO 00050 MOVL RO, RMS_STATUS : 
00010651 BF D1 0040 CMPL RMS_STATUS, #67153 : 3998 
07 12 0004 BNEQ 3$ : 
l 
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ES cc bof 

20 AB B61 00075 
Ww 1 7A 

08 AB 7 
3M $C ones 
5 Ge Boaes 
$¢ AB CO O0U8F 
00 2C 00093 

60 00098 
9C AB 00 00099 
6E 0 49443 

22 AB 3C OOOA 
08 AB €8 OOOAA 
01 CE Sonat 

01 FB 0008 
28 AB 00 00088 
04 CO 000B8D 
3c 6A 000C0 

05 000C2 
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ASRTL.SRCJBASRECPRO.B32;1 
#0, BASSSSIGNAL_CTRLC 

RMS_STATU 

(CCB), #99034 


CCB 
#1, SYSSWAIT 
#1, SYSS$GET 


4$ 
s2ccee), s4cccB) 


RO 


0( CCB), _36(CCB) 
E_USZ, 32(CCB) 


$ 
( 
2 
4 
0 
4 
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0 
1 
A 
4(CCB), RECOUNT 
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| BASSSREC_PROC 16-Sep-19 1: AX-11 Bliss-32 V4.0-7 Pa 76 
wits Versepatobe $1:56:88 — Yoasmre Saeiaagelceao -S2:1 9° 28) 
3; 27 4055 1 GLOBAL ROUTINE BASSSREC_PSE ( ! PUT (sequential) a record 
3; 27 40 § 1 i No. of bytes to write 
: 27 40 1 FOREIGN_BUFFER i pointer to foreign butfer (B or 0 
: 2789 4058 1 ) : JSB_PUT"NOVALUE = 
3; 2790 4059 1 
3; 2791 onee 1 !¢¢ 
3 Le ¢ : FUNCTIONAL DESCRIPTION: 

3 2796 toss 1! Check for ‘foreign buffers’’ and point RABSL_RSZ to foreign USZ if there. 
3; 2795 4064 1! Write one record. If successful then return; otherwise, signal a fatal 
3; 2796 4065 1! error. 

3; 2797 r+ ¢ 1! 

3; 2798 4067 1 ! FORMAL PARAMETERS: 

; 2799 4068 1! 

; 2800 4069 1! COUNT. rl.v No. of bytes to write 

; Soy re da : FOREIGN_BUFFER.rl.v pointer to foreign buffer CB or 0 
3 3808 4072 1 ! IMPLICIT INPUTS: 

3; 2804 4073 1! 

; 2805 4074 1! RABSW_RSZ of foreign buffer 

3 sane 4075 1! RABSL _RBF of foreign buffer 

3; 2807 4076 1! LUBSV_CCO Cancel control 0 

3 44 4077 1! 

; 2809 4078 1 ! IMPLICIT OUTPUTS: 

3 sero 4079 1! 

3 2811 4080 1! RABSL_RBF for ‘‘file’’ buffer 

$ saig 4081 1! RABSW_RSZ length of record to write 

3; 281 4082 1! LUBS$L_LOG_RECNO logical record number 

3 sale 4083 1! RAB$B_RAC™ record access field 

3; 2815 4084 1! RABS$V_CCO Cancel control 0 

3; 2816 4085 1! 

3: 2817 4086 1 ! ROUTINE VALUE: 

: 2818 4087 1! 

3: 2819 4088 1! NONE 

: 2820 4089 1! 

3: 2821 4090 1 ! SIDE EFFECTS: 

3 sese 4091 1! 

3: 282 4092 1! SIGNALS any RMS errors 

3 ase 4093 1 !-- 

3: 2825 4094 1 

3 ase 4095 BEGIN 

3; 282 4096 

3; 2828 4097 EXTERNAL REGISTER 

: B68 4098 CCB : REF BLOCK C, BYTE); 

: 28 4099 

; 2831 4100 LOCAL 

; 28 : 4101 RMS_STATUS; 

: 28 tt 

3; 28 410 Pp 

3; 2835 4104 FOREIGN_BUFFER : REF BLOCK C, BYTE); 

3; 2836 4105 

3; 2837 $108 '¢ 

3; 28 410 i Cop y the current status of the cancel-control-o bit in the LUB 
3; 2839 £198 i (possibly set by RCTRLO) into the RAB, and clear it from the 
3 2840 410 it The net effect of this is that if the bit is set in the 
: 1 4110 i LUB, then the CANCTRLO modifier will be applied to this write 
3; 2842 4111 i operation only. 


eee ea 


10 
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| | 

; bcs 4114 CcB art Hodes = ,CCB CLUB$vV_CCO); 

; § 4115 CCB CLuB$v=CCO) = 6; 

re 

; Bes 218 i Set the recordsize field in the RAB based on COUNT. 

; 529 411 ' Set the record address field in the RAB to the user buffer. 
3; 2851 4120 ' Perform the PUT. 

: B26 e : If RMS returns a failure status, signal the error. 

> 2854 41 

3; 2855 4124 34 pansy ASE = COUNT; 

; B36 $1 5 CCB CRABSB-RAC) = (IF .CCB CLUBSB_ORGAN] EQL LUBSK_ORG_INDEX THEN RABSC_KEY ELSE RABSC_SEQ); 
; 2858 2159 IF .FOREIGN_BUFFER NEQA 0 

$800 ue fa 

; +d re ? ; There is a foreign buffer. Point RABSL_UBF to it. 

; 2868 i138 a CRABSL_RBFJ = CCB CRABSL_UBF] = .FOREIGN BUFFER CRABSL_UBF ) 
3 2865 41 4 3 CCB CRABSL_RBF) = .CCB CRABSL_UBF); 

: 287 i RMS_STATUS = $PUT (RAB = .CCB); 

; 3869 4138 IF RMS_STATUS EOL RMS$_CONTROLC 

: HY 4140 BASSSSIGNAL_CTRLC (); 

: 873 4143 IF NOT .RMS_STATUS 

3 2874 414 THEN 

Be aM gc 

; 2877 4146 i we cannot call PUT_ERROR because we must restore UBF and USZ. 
Be Eg 

; 2880 4149 3 WHILE (CCB CRABSL_STS) EQL RMS$_RSA) DO 

; 288 4151 4 SWAIT (RAB = .CCB); 

: 288 4132 4 $PUT (RAB = .CCB); 

3; 2884 415 ; END; 

3; 2885 4154 

3 Hy 4155 END; 

: Saas a1? 5 ts 

; 334 $138 Restore RABSL_UBF in case there was a foreign buffer. 

; 891 4160 “ss CCB CRABSL_UBF) = .CCB CLUBSA_UBF); 

; 538 $196 Point LUBSA_RBUF _PTR off to the buffer used by RMS. 

; 895 4164 2 | CCB CLUBSA_RBUF_ADR] = .CCB CRABSL_UBF I; 

: 89 41 i Any error remaining (which will be an error other than Record Stream 
3 Boe rth 4 : Active, RSA) is fatal. 


0 
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BASSSREC_PROC 16-Sep-1 1:01: AX-11 Bliss-32 v4.0-74 Page 78 
1-095 1o-308- 1 3be 91:93:38 BASRTL. RE ieacRecPRo B%2;1 9° 28) 
IF ( NOT .CCB CRABSL_STSJ) THEN BASS$STOP_IO (BASSK_IOERR_REC); 
RETURN; 
END; ! End of BASSSREC_PSE 
SE 04 C2 00000 BASSSREC_PSE:: 
SuBL2. #4, SP : 405 
01 02 EF 003 EXTZ2V #2. #1, -94(CCB), -(SP) + 411 
7 —E FO 000 INS (SP)+, #7, #1, 70CCB) : 
Ag AB 04 BA O000F BICB2 #4, -$6(céB) + 411 
2 ag 1 80 0013 MOVW COUNT 34(¢¢B) : 41 
0 C4 AB 1 0001 cMPBO«=60(CéB), # : 41 
0 if} 90018 BNEQ =s«*1$ : 
51 01 DO 0001D MOVL #1, R1 : 
02 11 00020 BRB 2$ : 
51 D4 00022 1$ CLRL RY : 
1E AB 51 90 900 4 2$ MOVB R1, 30(CCB) : 
50 D3 0028 TSTL | FOREIGN_BUFFER + 4127 
0 13 0002A EQL 38 : | 
50 24 A 00 44 C OVL atrgee len BUFFER), RO : 4132 
24 «AB 50 DO 00030 MOVL RO, 36(CCBY ; 
28 AB 50 DO 000 MOVL RO, 40(CCB) ; 
05 11 000 BRB ; 
28 «AB 24 AB vO 00034 3$ MOVL 36(CCB), 40(CCB) + 4134 
5B DD 999 F 4$ PUSHL : 4136 
000000006 00 gi FB 00041 CALLS #1, SYSS$PUT ; | 
6E 0 DO 00048 MOVL RO. RMS STATUS : | 
00010651 8F 6E D4 00048 cRPL RMS_STATUS, #67153 > 4138 
000000006 00 00 FB 90034 CALLS #0, BASSSSIGNAL_CTRLC > 4140, 
1E 6€ €8 00058 5$: BLBS RMS STATUS, 7$ + 4142. 
000182DA ss BF 08 AB D1 OOSE és: CMPL g(ctB), #99034 + 4149 
58 Db 00068 PUSHL CCB : 4151. 
000000006 00 gi FB 006A CALLS #1, SYSSWAIT ; 
B DD 00071 PUSHL : 4152. 
000000006 00 01 Fe 0075 CALLS #1, SYS$PUT : | 
E2 11 OOO7A BRB > 4149 
24 «AB 9¢ AB 09 C 7$: MOVL -100(CCB), 36(ccB) : 4160. 
EC AB 24 AB OD 1 MOVL 6(CCB), =20(CCB) : 4164 
OA 8 AB EB BLBS (CCB), 8$ : 4170 
E 1 CE OOOBA MNEGL #1, -(§P) ; 
000000006 Q 1 FB 008D CALLS #1, BASS$STOP_10 ; 
E £0 009 8$ ADDL #4. SP + 4173 


3; Routine Size: 152 bytes, Routine Base: _BASSCODE + O9DE 


3; 2905 4174 1 
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MAP 
FOREIGN_BUFFER : REF BLOCK C, BYTE); 


te 

' Set the recordsize field in the RAB based on COUNT. 

: Set the record address field in the RAB to the user buffer. 

' Set the record access field in the RAB to relative. Perform the PuT. 
If RMS returns a failure status, signal the error. 


PAAAMII 


; 2907 4175 1 GLOBAL ROUTINE BASSSREC_PRE ( ! PUT (relative) a record 
; 2908 $178 1 COUNT ! No. of bytes to write 
. 9 4177 1 FOREIGN_BUFFER ! pointer to foreign CB or 0 
>; 2910 £178 1 ) : JSB_PUT NOVALUE = 

3; 2911 4179 1 

3 a 4180 1 !++ 

3 Biz ot 1 ! FUNCTIONAL DESCRIPTION: 

3; 2915 41 ¢ 7 ! Check for a foreign buffer and poies to it if necessary. 

: 2916 4184 1! Write one record. If successful then return; otherwise, signal a fatal 
3; 2917 4185 1! error. 

3 aig 41 $ ,} 

3 ev «1 1 ! FORMAL PARAMETERS: 

; 2920 4188 1! 

; 2921 4189 1! COUNT. rl.v No. of bytes to write 

3 : ; ht + : } FORE IGN_BUFFER.rl.v pointer to foreign CB or 0 

3: 2924 £136 1 ! IMPLICIT INPUTS: 

: 2925 4193 1! 

3 6 4196 1! RABSL _UBF for the foreign buffer (buffer pointer) 
3 44 elt? : RABSW_USZ for the foreign buffer (buffer size) 

: 368 t199 1 ! IMPLICIT OUTPUTS: 

; 29 4198 1! ‘ 

: 2931 4199 1! RABSW_RSZ length of record to write (file buffer) 
3 o36 4200 1! RABSL_RBF ointer to file CB 

3; 293 4201 1! LUBS$L_LOG_RECNO ogical record number 

3 2934 4 oe +! RABS$B_RAC record access field 

; 2935 4203 1! 

3: 2936 4 3 1 ! ROUTINE VALUE: 

3; 2937 4205 1! 

; 338 4206 1! NONE 

3; 293 4207 1! 

3 2940 4208 1 ! SIDE EFFECTS: 

3 2941 4209 1! 

3 Beg 4210 1! SIGNALS any RMS errors 

> 294 4211 1 !-- 

3 2944 4 i 1 

; 5 421 BEGIN 

3 bg | 4214 

3 294 4215 EXTERNAL REGISTER 

3 2948 4216 CCB : REF BLOCK C, BYTE); 

3: 2949 4217 

; 2950 4218 LOCAL 

: 1 4219 RMS_STATUS; 

: $983 554 

3 4221 

; “ 4 $§ 

3 5 4 

: $ 42246 

3 29 1556 

4997 

1559 

: 4230 

3 4231 


POR SPIPIPOPONINIPINYNNININININININININININININININPPofonys 
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CCB CRABSW_RSZ2) = .COUNT; 
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_——— 


2964 4338 CCB CRABSB_RAC] = RABSC_KEY; 

; 966 4234 IF .FOREIGN BUFFER NEQA 0 

; 296 : 5 ‘ THEN 

; 389 4 $ i There is a foreign buffer. Point off to the buffer but don't do the 
3 44! : 8 } size. A PUT with count would not work right, so the size is passed in. 
; 97 4240 ese’? CRABSL_UBF) = CCB CRABSL_RBF] = .FOREIGN_BUFFER CRABSL_UBF 
; 974 aghg CCB CRABSL_RBF] = .CCB CRABSL_UBFI; 

; 976 4 rh RMS_STATUS = SPUT (RAB = .CCB); 

; 97 4246 IF .RMS_STATUS EQL RMS$_CONTROLC 

3 2980 4248 BASSSSIGNAL_CTRLC (); 

: 2981 4249 

3; 298 4250 IF NOT .RMS_S*ATUS 

; 298 4251 THEN 

3: 2984 4 26 BEGIN 

3; 2985 425 ! 

: My ? 32 : We cannot call GET_ERROR because we must restore UBF and USZ. 

; $988 4256 

> 2989 425 WHILE (.CCB CRABSL_STS] EQL RMS$_RSA) DO 

3; 2990 4258 4 BEGIN 

3: 2991 4259 4 WAIT (RAB = .CCB); 

3; 299 4260 4 SPUT (RAB = .CCB); 

3; 299 4261 ; END; 

3 2994 2505 

3; 2995 426 END; 

: 2996 4264 

3 3444 $502 '¢ 

3 ba 4 rs, i Restore RABSL_UBF in case there was a foreign buffer. 

; 8 4268 , 008 CRABSL_UBF] = .CCB CLUBSA_UBFI; 

; Oog 4370 Point LUBSA_BUF_PTR off to the buffer used by RMS. 

; 004 are CCB CLUBSA_RBUF_ADR) = .CCB CRABSL_UBF J; 

: 4274 i Any error remaining (which will be an error other than Record Stream 
3 tt 4275 ? ! Active, RSA) is fatal. 

3 4276 i. 

3; 3009 4277 

; Big ? 4 If ( NOT .C£B CRABSL_STS]) THEN BASSS$STOP_IO (BASSK_IOERR_REC); 

: 3012 4 80 RETURN; 

; 301 4281 END; ! End of BASSSREC_PRE 


4 (C2 00000 BASSSREC_PRE:: 
= ¥ : . SuBL2 #4, SP : 4175 
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BASSEREC PROC ibrfeo19Rs 01:01:12 yAK=dH Ob iag-B2 y4,0-742, 


2 AB 1 MOVW COUNT, 34(CCB) 
¢ AB 1 g : MOVB i Ycecas 
0 p 8 ist FOREIGN_BUFFER 
50 24 AO D OF MOVL (FOREIGN BUFFER), RO 
38 AB D 13 MOVL RO, 40(CCBY 
4 AB : 1 MOVL RO, 36(CCB) 
28 AB 24 As D0 1p 1s MOVE 36(¢CB), 40(CCB) 
000000006 00 gi FB 4 CALLS #1, SYSS$PUT 
GE 0 D 8 MOVL RO, RMS STATUS 
00010651 8F E OI : CMPL  RMS_STATUS, #67153 
12 000 BNEG 3$ 
000000006 00 0 Fe 0037 CALLS #0, BASSSSIGNAL_CTRLC 
1E 6€ £8 OO03E 3$: BLBS § RMS STATUS, 5$ 
000182DA_ = BF 08 AB ODI 99041 as: CMPL (CCB). #99034 
14 12 00049 BNEG $ 
5B DD 00048 PUSHL (CCB 
000000006 00 01 FB 00040 CALLS #1, SYSSWAIT 
5B DD 00054 PUSHL 
000000006 00 01 FB 00056 CALLS #1, SYSS$PUT 
E2 11 00050 BRB 
24 «AB 9¢ AB DO 0005 5$: MOVL  -100(CCB), 36(CCB) 
EC AB 24 AB DO 00064 MOVL  36(CCB), -20(CCB) 
OA 08 AB €E8 00069 BLBS 8(CCB), 6$ 
7E 01 CE 00060 MNEGL #1, -(SP) 
000000006 00 01 FB 0007 CALLS #1, BASS$$STOP_IO 
5E 04 CO 00077 6$: ADDL2 #4. SP 
05 0007A RSB 
3; Routine Size: 123 bytes, Routine Base: _BASSCODE + 0A76 


; 3014 4282 1 


BASSEREC_PROC 


WN SO OCONOUSWN—“OOOne 

IN WAIAPoTonornornofnorononornopororononn 
tet FRAN Y HARE Oo te try oe 
SONAL EWN O OOO Ww 


OOOOCCOOCCOCOCOCOOOOOOOoOooOoooo 


; 4 1 
: 4 1 
; 4 1 
; 4 1 
° 4 1 
; 4 1 
; 4 1 
; 4 1 
oe 4 1 
: i 
: i) 
2308 4 
: 4304 1 
: 3038 4305 1 
: 3039 4306 1 
> 3040 4307 1 
> 3041 4308 1 
: 04g 4309 1 
> 304 4310 1 
> 3044 4311 1 
> 3045 4 12 1 
; 3046 4313 1 
: 3047 4314 1 
: $048 4315 

> 3049 4316 

; 950 4317 

> 3051 4318 

; 052 4319 

> 305 4320 

: 3054 4321 

> 3055 43 2 

> 3056 43 

> 3057 4326 

> 3058 4325 

: 3059 43 6 

: 3060 4 

: B62 t3 § 
3068 £380 
> 3064 4331 

> 3065 a 

; bee t3 4 

+ 3068 4335 

: ; 

: 4 

: 43 


Ww 
oo 


GLOBAL ROUTINE BASSSREC_FSE ( 
OCK_FLAGS 


) 


10 
tb-Sep-1984 01:01:12 yayett BLis4-32,¥4.0- 


! FIND (sequential) a record 
: JSB_REC2 NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


Find next record. If successful then return; otherwise, signal a fatal 
error. 


FORMAL PARAMETERS: 


LOCK_FLAGS.rlu.v bits to set in the RAB ROP to control manual 
record locking (0 if none) 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


RABS$B_RAC record access field 


ROUTINE VALUE: 


NONE 


SIDE EFFECTS: 


Finds next record in file on this logical unit. 
SIGNALS any RMS errors 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LOCAL 
RMS_STATUS; 


'¢ 


i Set the record access field in the RAB to sequential. Perform the FIND. 
If RMS returns a failure status, signal the error. 


CCB CRABSB_RAC) = RABSC_SEQ; 


'¢ 
Set bits in RAB ROP without clearing ULK. 


CCB CRABSL_ROP] = .CCB CRABSL_ROP) OR .LOCK_FLAGS; 


'¢ 
perform the FIND. 


74 
-B52;1 


Page 56 


K 10 
eagggre rma iEaclshs 1:8) 


\ AX-11 Ob iegese son7he 
BASRTL.SRC JBASRECPRO.852;1 


! End of BASSSREC_FSE 


SYS$F IND 


LAGS, 4(CCB) 
#1, SYSSFIND 

LOCK FLAGS, 4(CCB) 
RMS_STATUS, 1$ 

#1, 7=(SP) 

#1; BAS$SS$STOP_10 
#*M<R2> 


; 3073 434 
: O74 4 re RMS_STATUS = SFIND (RAB = .CCB); 
; Ore t3c§ r 
; O78 $ rf: ; Turn off bits so that subsequent operations will not inherit them. 
: 307 434 
3 980 4 sf CCB CRABSL_ROP] = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 
: 308 4349 rr 
; oss : 29 signal if the FIND failed. 
; 085 4 5 iF NOT .RMS_STATUS 
; 087 4354 BASSS$STOP_IO (BASSK_IOERR_REC); 
: 3089 6356 RETURN; 
; 3090 4357 END; 
.EXTRN 
52 DD 00000 BASSSREC_FSE:: 
USHL 
52 50 D0 00002 OVL 
1€ AB 94 00005 CLRB 
04 AB 52 C8 00008 BISL2 
58 DD 0000C PUSHL 
000000006 00 or FB 00008 CALL 
04 AB : CC 0001 XORL 
OA 50 €8 00019 BLBS 
7E 01 CE 9001¢ MNEGL 
000000006 00 01 FB OOO1F CALLS 
04 BA 00026 1$: POPR 
5 00028 RSB 
3; Routine Size: 41 bytes, Routine Base: _BASSCODE + OAF1 


Page 53 


AAAI AI AIAN AI AI AIA AAAI ANIA AAAI NIAAA AAAI A 


BASSSREC_PROC 


09 


SSLSSES 


FESCs 


ee ee a a ce ee et ee a a cae eh a a ce ce a a a ae a a a a a a ce ce a a a a ed ed a ad ed 
WAAL AI AIR POPUP NUNN 4 2 OOO 


Set kt ek ht ee hb oh eh ah ad 
DONO UE WO OONOum 


Dt a eh ddd dd a a ee a a et ee ek at ek ak et et et tt 


S&F WWAWAAAAAAAWAAAWNWAWAAAWNWI AWWA AAA AIAN 


DOOVO OOO OOO OWDWDDWWOWWOOON VN Oy Own 


RonononononongnonoNoNgNgNONOPUNNUNPIPONINININNY 2 9 ot 2 0 a 
omeme ° . 


10 
1$-Se -1984 01:01: AX-11 Bliss-32 V4.0- 
4 1984 94:90:48 EBASRTL SRE BASRECPRO 
GLOBAL ROUTINE BASSSREC_FRFA ( ! FIND (by RFA) a record 
) : JSB_REC2 NOVALUE = 


14-Sep- 


'e¢ 
! FUNCTIONAL DESCRIPTION: 
Find record by RFA stored in the RAB. If successful then return; otherwise, signal a fatal 


error. 


i FORMAL PARAMETERS: 


LOCK_FLAGS.rlu.v bits to set in the RAB ROP to control manual 
record locking (0 if none) 


i IMPLICIT INPUTS: 


NONE 


i IMPLICIT OUTPUTS: 


RABS$B_RAC record access field 


i ROUTINE VALUE: 


NONE 


i SIDE EFFECTS: 


Finds next record in file on this logical unit. 
SIGNALS any RMS errors 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LOCAL 
RMS_STATUS; 


+ 
Set the record access field in the RAB to sequential. Perform the FIND. 
If RMS returns a failure status, signal the error. 


CCB CRAB$B_RAC) = RABSC_RFA; 

1+ 

Set bits in RAB ROP without clearing ULK. 

CCB CRABSL_ROP) = .CCB CRABSL_ROP) OR .LOCK_FLAGS; 


'¢ 
perform the FIND. 


PT ra 


4 10 
| BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V 
pases 1ereea hes P1iSoiss = eXca te Osa iaagate 
; 31469 4415 
: 3150 441 RMS_STATUS = $FIND (RAB = .CCB); 
Bee Bd Sats 
; 138 cc19 i Turn off bits so that subsequent operations will not inherit them. 
; 138 44 
3 136 44 ; CCB CRABSL_ROP] = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 
; 3158 4424 re 
3 123 + 5 Signal if the FIND failed. 
; 161 44 : if NOT .RMS_STATUS 
; 188 4429 BASSSSTOP_IO0 (BAS$K_IOERR_REC); 
> 3164 4430 
: 3165 4431 RETURN; 
; 3166 4432 1 END; ! End of BASSSREC_FRFA 
52 DD 00000 BASSSREC_FRFA:: 
PUSHL R2 
52 50 pO 0000 MOVL RO, 
16 AB 08 90 0000 MOVB #2. 35 CCB) 
04 AB 52 C8 00009 BISL2 LOCK_FLAGS, 4(CCB) 
58 0D 00000 PUSHL 
000000006 00 01 FB 0000F CALL YS$F IND 
04 AB 52 c¢ 0016 XORL otk: FLAGS. 4(CCB) 
OA 50 €8 OOOIA BLBS - RMS_STATUS. 1$ 
7E 01 CE 0001D MNEGL #1, 2 (ep) 
000000006 00 01 FB 00020 CALLS #1, BASSSSTOP_ 10 
04 BA 00027 18: POPR #*M<R2> 
05 00029 RSB 


; Routine Size: 42 bytes, Routine Base: _BASSCODE + OBIA 


4433 1 
4434 1 


pRO.B32; :1 
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BASSSREC_PROC 


5 
7? 
? 
? 
? 
? 
7? 
? 
? 
7 
7? 
8 
84 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 


WA AAAAIAIAAANWN 


NIWNWAANAANAAN NAW AIAIAIANIANIAIAIAINWNANANN 
PoTanonononononoforupoponsnonofeforfroforor 


— 


| 
| 


kk ak tk at 2 = a at ot ot ot 8 a 8 


WN SO DCONOUSWNO 


MEFWN—OOONOuM 


ROMNNINININ 4 2 OO | S“ OOOSOOOOOO ono 


N 10 

16-Sep-1984 01:01: AX-11 Bliss-32 

1228687138 94:90:38 BASRTL.SRCIJBASR 
GLOBAL ROyT Ie BASSEREC_FRE ( ! FIND (relative) a record 


) : JSB_RECO NOVALUE = 
lee 


FUNCTIONAL DESCRIPTION: 


Find next record. If successful then return; otherwise, signal a fatal 
error. 


FORMAL PARAMETERS: 


LOCK_FLAGS.rlu.v bits to set in the RAB ROP to control manual 


i 

i 

i 

i 

i 

i 

record locking (0 if none) 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

RABSB_RAC record access field 
ROUTINE VALUE: 

; NONE 

SIDE EFFECTS: 

SIGNALS any RMS errors 


ec ee ce ec ed ee ee ee ee ce ce ee ee ee ee ee ee cee ee ee ee ee eed ee 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LOCAL 
RMS_ STATUS; 


'+¢ 


i Set the record access field in the RAB to sequential. Perform the FIND. 
: If RMS returns a failure status, signal the error. 


CCB CRABSB_RAC) = RABSC_KEY; 

'¢ 

Set bits in the RAB ROP without clearing ULK. 
CCB CRABSL_ROP) = .CCB CRABSL_ROP] OR .LOCK_FLAGS; 


'¢ 
perform the FIND. 


Vv 
E 


4 
C 


pbn7ee 
PRO.852;1 


Page 8 


| BASSSREC_PROC 
1-095 


Se Se Ge Oe Se Ge Ge Ge Se Ge SHS Gt Ge SH BH St Sse 


FW" OOCONOUSWNO0o~ 


; Routine Size: 37 bytes, 


; 3245 4510 1 


r-_—-  O—- ee 


11 
1G-Se0-1984 01:01:12 YAN=d1 Bliss: 


RMS_STATUS = SFIND (RAB = .CCB); 
14 


i turn off bits in the RAB ROP so that subsequent operations do not 
i. inherit them. 


CCB CRABSL_ROP] = .CCB CRABSL_ROP] XOR .LOCK_FLAGS; 


4 
i Signal if the FIND failed. 
if NOT .RMS_STATUS 
BASSSSTOP_I0 (BASS$K_IOERR_REC); 


RETURN; 
END; ! End of BASSSREC_FRE 
1E AB 01 90 00000 BASSSREC_FRE:: 
Move #1, 30(CCB) 
04 AB 04 AE C8 00004 BISL2 LOCK_FLAGS, 4(CCB) 
5B DD 00009 PUSHL é B 
000000006 00 01 FB 00008 CALLS #1, SYSS$FIND 
04 AB 046 AE CC BR ts XORL2 LOCK Sart 4(CCB) 
A 50 €8 0001 BLBS RMS _ STA , 18 
7E Q1 CE QOOIA MNEGL #1, 
000000006 00 01 fe 0001D CALLS #1, BASS$STOP_ 10 
05 00024 18: RSB 


Routine Base: _BASSCODE + 0B44 


=32 V4 
BASREC 


0-74 
PRO.B32;1 


Page 5) 


—_--—— 


ASSSREC_PROC 
(RASSEREC- 

? 451 1 
48 4512 1 
49 4518 1 
50 4516 1 
51 45158 1 
52 516 1 

517 1 
4 4518 1 
55 4519 1 
56 4520 1 
57 4551 1 
58 4520 
$9 4558 1 
60 4554 1 
561 4595 1 
26¢ 4536 
56 4597 1 
264 4598 1 
65 4529 1 
566 4580 1 
3267 +23) 1 
568 552 
569 4538 1 
$70 4534 1 
$71 4535 1 
272 4536 1 
$7 4537 1 
57% 4538 1 
$75 4539 1 
276 4540 1 
27 4541 1 
78 542 
579 4548 1 
280 4544 1 
$81 4545 1 
28¢ 4546 1 
58 4547 1 
584 4548 1 
$B 4385 | 
$B 4551 1 
588 4552 
589 455 
290 4554 
91 4555 
299 4556 
9 4557 
94 4558 
95 4559 
9% 4560 
9 4561 
98 4569 
99 456 
4564 
301 4565 
308 i369 


Be Se Se Se Ge Be Se Se Be Se Se Be Se Ge Se Ge Ss Se Ge Fe Ge Se Ge Ge Se Ge Gs Oe Se Se Be Se Se SF Ss SH Se Se Fs Ss os Ss Ge Se Ge SF Se Ss Sees SHS Se Sees esas 


1 
1 


- woo 


1 

1 

D (indexed) a record 
D 2 


GLOBAL ROUTINE BASSSREC_FIN ( ; 
K 1 NOVALUE 


I 
EY_NO, REL_OP, KEY, LOCK_FLAGS) : JSB_REC_I 


oe 
FUNCTIONAL DESCRIPTION: 


Find indicated record. If successful then return; otherwise, signal a fatal 
error. 


! FORMAL PARAMETERS: 


KEY_NO.rl.v ee | of reference 

REL_OP.rl.v relational operator for key 

KEY.rt.dx key to search for 

LOCK_FLAGS.rlu.v bits to set in the RAB ROP to control 
manual record locking ‘(0 if none) 


IMPLICIT INPUTS: 


NONE 
IMPLICIT OUTPUTS: 
RABSL_KBF pointer to the desired key value 
RABS$B_KSZ size of desired key value 
RABSM_KGE pene Canes in RABSL_ROP indicating greater than 
or equa 
RABSM_KGT relational in RABSL_ROP indicating greater than 
RABSB_KRF indicates key of reference 
RABS$B_RAC record access field 
ROUTINE VALUE: 
NONE 


' SIDE EFFECTS: 
See RMS Reference manual for discussion on whether match will be exact, 


genes ite approximate, or generic-approximate. 
IGNALS any RMS errors 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


MAP 
KEY : REF BLOCK (8, BYTE); 
LITERAL 
K_EQUAL = 0 ' search for key cquet 
K-GREATER_EQUAL =_1, i search for key GEQ 
K_GREATER_THAN = 2; ! search for key GIR 
LOCAL 


RMS_STATUS; 


:56:58 — EBASRTLSRESBASRECERO.652;1 


ao 


r-—--— — 


ASSSREC_PR 
eaggnecroc 


WALA ALAR PROPOR RPT — 2 = = OO Oo 
PAR UI OOS NOUR SODNAME WOODS RR 


WWNAWNAA AAW ANNAN 


WAG 


WANNA AIAAAAAAI AA NINN 


FESSE 
SOOONO UE WN-OOen 


WWAWA.AA AAAI 
SAMAR AMAMARE ee 


SOOONO UE WN 


WRC OONOUE WN OOM 


NP ted 4 + tat tery te eet PP PN REO 


So Pt. ty Pty tte dt} beet te 


oo 


4599 


SELLE 
DAAAAAAS 


PIPMIPIPINI AAAI PIRI AIAIRIPPIPUPININIPIPI AAAI PNPNNUNPNNToTy 


D 11 
16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 Pa 9 
1o=8 08-1 3b 9190: 48 BASRTL.SRCJBASRECPRO.B352;1 9 58 


li ee 


14 

' Set the — buffer field, the key size field, the key of reference, 
i and the relational bits in the ROP. 

' Set the record access field in the RAB to key. Perform the FIND. 
If RMS returns a failure status, signal the error. 


CCB CRABS$B_RAC] = RABSC_KEY; 

CCB CRABSL“KBFJ = .KEY COSCSA_POINTER]; 

CCB CRABSB-KRFJ = .KEY_NO; 

CCB CRABSB-KSZ) = (IF [KEY COSCSB_DTYPE] NEQ DSCSK_DTYPE_P 


KEY COSCS$W_LENGTHI 
(.KEY CDSCSW_LENGTHI/2 + 1)); 
CASE -REL_OP FROM K EQUAL TO K GREATER THAN OF 


ELS 


CK_EQUAL] : 
CCB CRABSV_KGE) = CCB CRABSV_KGT] = 0; 


CK_GREATER_EQUAL] : 
BEGIN 


CCB CRABSV_KGE) = 1; 

CCB CRABSV~KGT = 0: 

END; 
[K_GREATER_THAN) : 

BEGIN 

CCB CRABSV_KGT) = 1; 


CCB FRABSV-KGE} 
tes; 


'¢ 
Set bits in the RAB ROP without clearing ULK. 


CCB CRABSL_ROP] = .CCB CRABSL_ROP] OR .LOCK_FLAGS; 


‘+ 
perform the FIND. 


RMS_STATUS = SFIND (RAB = .CCB); 
'¢ 


i Turn off bits in the RAB ROP so that subsequent operations do not 
inherit them. 


CCB CRABSL_ROP) = .CCB CRABSL_ROP) XOR .LOCK_FLAGS; 
' 


'¢ 
! Signal if the FIND failed. 


i at De At ap laL Se | 


1 
BASSSREC_PROC 1h-se -1984 01:01: AX-11 Bliss-32 V4.0-74 Page 90 
1995 12-808-19be Ori 9ei 48 BASRTL. SRC IBASRECPRO.B 231 9° 33). 
F 1 4625 le 
; 6¢ 46 $ if NOT .RMS_STATUS 
; é 46 § BASSS$STOP_I10 (BASSK_IOERR_REC); 
; 66 4630 RETURN: 
; 336 4631 END; ! End of BASSSREC_FIN 

52 DD 00000 BASSSREC_FIN:: | 
PUSHL R2 : 4511) 
1E AB 01 90 00002 MOVB #1, 30(CCB) > 4576, 
30 AB 04 A2 DO 00006 MOVL 4(KEY), 48(ccB) > 4577 | 
5 AB 50 90 00008 MOVB  KEY_NO, 53(CCB) : 4578. 
15 02 Ae 91 OO00F CMPB so (KEY), #21 > 4579 
05 13 90013 BEQL esd : | 
52 62 3C 0001 MOVZWL (KEY), R2 + 4581. 
08 11 00018 BRB 2s : 
53 62 3C OO01A 1$: MOVZWL (KEY), R2 + 4583. 
5 02 C6 0001D DIVL2 We. Ro : 
52 06 9000 INCL R : 
34 AB 52 90 00022 28: MOVB Re, 52(CCB) + 4579) 
52 04 AB YE 00026 MOVAB 4(C€CB), Re > 4589 
0 00 51 CF OO02A CASEL REL_OP, #0, #2 : 4585 
001 0000 0006 0002E 3$: «WORD 4$-38.- : | 
- 7 é 
6$-3$ 3 
02 A2 40 8F 8A 00034 4$: BICB2 #64, 2(R2) > 4589 | 
10 11 00039 RB 7$ : | 

02 A2 20 88 00058 5$: BISB2 #32, 2(R2) : 4593 
02 A2 40 &8F 8A 999 F BICB2 #64, 2(R2) + 4594 | 

09 11 00044 BRB : 4585 

02 A2 40 8F 88 00046 68: BISB2 #64, 2(R2) : 4599 

02 =A 20 BA 00048 7$: BICB2 #32, 2(R2) + 4600 
6 C8 OOO4F 8S: BISL2 LOCK_FLAGS, (R2) 3 4608 | 
5B DD 00052 PUSHL (CC + 4614 | 
000000006 00 01 FB 00054 CALLS #1, SYSSFI ; 
62 3 cc 00058 XORL2 LOCK FLAGS, (R2) t 4621 | 
OA 50 £8 0005E BLBS §-RMS_STATUS, 9 > 4626 | 
E 01 CE 00061 MNEGL #1, 7-(SP) > 4628 | 

000000006 00 01 FB 0064 CALLS #1, BASS$$STOP_IO : 
04 BA 06B 9$: POPR #*M<R2> + 4631 
5 00060 RSB ; 
3; Routine Size: 110 bytes, Routine Base: _BASSCODE + 0B69 


: 3368 4632 1 


ARGNASSRIS ARH 


Be Se Ge Be Ge Ge Se Ge Ge Fe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Se Se Ge Se Se Se Se Ge Ge eee Se Se Ge GHGs Ge —@w 
> 

Ad 

RR As 
SANG Sad 

- -—-o z@ 

mn 

oO 

wv 

@ 

Oo 

oO 


& 
Mw 


NOV EW —O 0M 


Pt ot ot ot 


GLOBAL ROUTINE BASSSREC_DSE 


F 11 
16-Sep-19 1: AX-11 Bliss- 4 
1erSep=19B6 11:56:5 OSRCSBASRECERO. 


! DELETE (sequential) a record 
JSB_RECO NOVALUE = ’ 


144 
, POR TIem, DESCRIPTION: 


— current record. If successful then return; otherwise, signal a fatal 
error 


: {FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


RABSB_RAC record access field 


{ROUTINE VALUE : 


i SIDE EFFECTS: 


SIGNALS any RMS errors 


BEGIN 
EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


i "set the record access field in the RAB to sequential. Perform the DELETE. 
g If RMS returns a failure status, signal the error. 


CCB CRABSB_RAC) = RABSC_SEQ; 
IF NOT SDELETE (RAB = .CCB) THEN BASS$STOP_10 (BASSK_IOERR_REC); 


RETURN; 
END; ! End of BASSSREC_DSE 
-EXTRN SYSSDELETE 
1€ AB %& 00000 BASSSREC_DSE:: 
CLRB 30(CCB) 
58 000 PUSHL 
00000000G 00 1 oS 44 CALLS #1, SYSSDELETE 
A 0 ce BSE BLBS ° 
E 1 MNEGL #1, =-(SP) 


BASRTL.SRCJBASRECPRO. 4 231 


Page 91 


(34) 


BASBEREC PROC y$-Fep-1964 01:01:12 yauclt Buisgese vez0c7eg, Page 92 


000000006 00 01 fe 00018 CALLS #1, BASS$S$STOP_I0 : 
05 00019 18: RSB ; 4678 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0807 


; 3416 4679 1 


BASSSREC_PROC 

} BASS 

: 18 46 

: 341 4681 
; 0 46 : 
: 3421 46 

: : 46 

: 3424 te 3 
> 3425 rh} 
: 34 $ 4688 
; 4689 
: 8 46 

: 4691 
: 3430 469 
3 1 469 
3 ¢ 6694 
: 34 4695 
; 5 469 
3 3436 4698 
: 3437 4699 
: 38 4700 
; 9 4701 
: 3440 47 g 
: 3441 470 
; 4e 4704 
: 344 4705 
> 3444 4706 
: 3445 4707 
: 46 4708 
: 344 4709 
: 3448 4710 
3089 rae 
3 3451 to18 
; 32 4714 
3 345 4715 
+ 3454 4716 
3 3455 4717 
> 3456 4718 
: 3457 4719 
3 3458 4720 
3 3459 4721 
3 3460 47 : 
> 3461 47 

; 62 4726 
3 346 4725 
3 3464 47 6 
3 3466 4728 
3; 3468 4730 
+ 3469 4731 
: 3470 47 : 
: 3471 47 


11 


GLOBAL ROUTINE BASSSREC_UNL ! UNLOCK a record 
: JSB_RECO NOVALUE = 


'¢ 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


Unlock the current record. If successful or no records locked, 
then return; otherwise, signal a fatal error. 


i FORMAL PARAMETERS: 

i NONE 

i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

RAB$B_RAC record access field 
i ROUTINE VALUE: 

i NONE 

i SIDE EFFECTS: 

SIGNALS any RMS errors 


CCB : REF BLOCK C, BYTE); 
i¢ 
' Set the record access field in the RAB to sequential. Perform the UNLOCK. 
If RMS returns a failure status, signal the error. 
CCB CRABSB_RAC] = RABSC_SEQ; 


IF NOT SRELEASE (RAB = .CCB) 

THEN 
IF .CCB CRABSL_STS) NEQ RMS$_RNL 
THEN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
EXTERNAL REGISTER 
‘+ 
: An error was returned, check for ‘record not locked’. 
BASSS$STOP_IO (BASSK_IOERR_REC); 


RETURN; 
END; ! End of BASSSREC_UNL 


H 
ereeenT 8 Re FF 8k:ke = FaNSAT OsAE Seagate ceo. 


882; 


Page 93 
29° 35) 


r 
BASSSREC_PROC 


3; Routine Size: 


3 3472 


36 bytes, 


4734 


1 


000000006 99 
000181A0 = BF 08 


66 
000000006 0 


rm “BEOcHREE O1:ON:12 PANTY OLiega sz we Oe742, 


~EXTRN 
94 00000 BASSSREC_UNL:: 
CLRB 
DOD ; PUSHL 
fe CALLS 
E C BLBS 
» f CMPL 
17 BEQL 
cE Baie MNEGL 
F 8 Bi§ CALLS 
05 00025 1$: 


Routine Base: _BASSCODE + OBF1 


SYSSRELEASE 


: SYSSRELEASE 
€cB), #98720 


, (SP) 
; BASS$STOP_IO 


Page 52) 


—_—__——_ — - > 


11 
PASSEREC PROC WB-Sep-1984 01:01:12 yAKeHt OL ies 32 40-742, 


'¢ 
An error was returned, check for ‘‘record not locked’. 


BASSSSTOP_IO (BASS$K_IOERR_REC); 


NOUS WN © 


Rorerofoporerer 


> 3474 4735 1 GLOBAL ROUTINE BASSSREC_FEE ! FREE all locked records 
; 3475 47 1 JSB_RECO NOVALUE = 

: 8 47 1 

3 347 47 8 1 !e¢ 

; ats ri) ! FUNCTIONAL DESCRIPTION: 

; 3480 4741 1! Free all locked records. If successful or no records locked, 
3 ret rot} : then return; otherwise, signal a fatal error. 
; 348 4744 1 | FORMAL PARAMETERS: 

3; 3484 4745 1! 

$ 5 i S| 1 i NONE 

3 4747 13 

3 re 14 4748 1 | IMPLICIT INPUTS: 

7 34 4749 1/3 

3; 3489 4750 1 NONE 

; 3490 4751 1 

3 3491 $236 1 ' IMPLICIT OUTPUTS: 

3; 349 4753 1! 

3; 349 4754 1! RABS$B_RAC record access field 

3 3494 4755 1: 

3; 3495 4756 1 | ROUTINE VALUE: 

3; 3496 4757 1: 

3; 3497 4758 1: NONE 

3; 3498 4759 1! 

3; 3499 4760 1 ! SIDE EFFECTS: 

; 3500 4761 1! 

3; 3501 o7¢ 1 SIGNALS any RMS errors 

3 206 4763 1 i-- 

3; 350 4764 1 

3; 3504 4765 BEGIN 

3; 3505 4766 

3; 3506 4767 EXTERNAL REGISTER 

3 444 4768 CCB : REF BLOCK C, BYTE); 

; $2 8 4769 

3; 3509 4770 + 

3 3510 4771 i Set the record access field in the RAB to sequential. Perform the FREE. 
3 313 ore If RMS returns a failure status, signal the error. 
; 218 4774 

: 2\% or? CCB CRABSB_RAC] = RABSC_SEQ; 

3 21¢ 477 IF NOT SFREE (RAB = .CCB) 

3 aie or? THEN 

3; 3519 78 IF .CCB CRABSL_STS] NEQ RMSS$_RNL 

3; 35 7 THEN 

3; 35 

3 35 

3; 35 

3; 35 

3; 35 

; 35 

3; 35 1 


RETURN; 
END; ! End of BASSSREC_FEE 


BASSSREC_PROC 
1-095 


3; Routine Size: 


000000006 99 
000181A0 = 8F 


06 
000000006 0 


AX-11 Bliss-32 V4.0-7 
BASRTL. §RCIBASRECPRO.B 2:1 


sEXTRN SYSSFREE 
94 00000 BASSSREC_FEE:: 


Routine Base: 


_BASSCODE + 0C15 


11 
vege IESeoct9Bs 1:01:18 YNGH OUdeHaReadtas74B. P90 335 


; ‘ 4790 1 GLOBAL ROUTINE BASSSREC_UPD ( ! UPDATE a record 

3 1 ri 4$! 1 ! No. of bytes in the record 
; ¢ 47 § 1 ) : JSB_DO_WRITE NOVALUE = 

; 35 4793 1 

3 4 4794 1 !4¢ i 

; 5 $f? : } FUNCTIONAL DESCRIPTION: 

: 35 2999 1! Update current record. If successful then return; otherwise, signal a fatal 
: 35 4798 1! error. 

3 23> 4799 1! 

: any i rs : : FORMAL PARAMETERS: 

$ 246 4 8 1! COUNT. rl.v No. of bytes in record to update 

3 354 4805 1! 

3: 3544 4804 1 ! IMPLICIT INPUTS: 

3; 3545 4805 1! 

3 2¢8 4 6] 1! NONE 

3; 354 4807 1! 

3; 3548 4808 1 ! IMPLICIT OUTPUTS: 

3 3549 4809 1! 

; 3550 4810 1! RAB$B_RAC record access field 

; 3551 4811 1! RABSW_RSZ record size 

; 226 oaig 1! 

; 355 481 1 ! ROUTINE VALUE: 

3; 3554 4814 1! 

3; 3555 4815 1! NONE 

3; 3556 4816 1! 

3; 3557 4817 1 ! SIDE EFFECTS: 

; 3558 4818 1! ; : 

; $225 4819 1! Yogase current record in file on this logical unit. 

3; 3560 4820 1! SIGNALS any RMS errors 

3; 3561 4821 1 !-- 

3 $208 48 ¢ 1 

3; 356 $35 § BEGIN 

3 3564 4824 

3; 3565 4825 EXTERNAL REGISTER 

3: 3566 4826 CCB : REF BLOCK C, BYTE); 

3; 3567 4827 

; 3568 4828 '¢ 

3 3569 4829 ! Point RBF to the user buffer. : 

; 3570 4830 ' Set the record access field in the RAB to sequential. Perform the UPDATE. 
3 4. rite If RMS returns a failure status, signal the error. 

: 278 $3 § CCB CRABSL_RBF) = .CCB CRABSL_UBF); 

3 3574 4834 CCB CRABSW_RSZ) = .COUNT; 

; 373 48 5 CCB CRAB$B-RAC) = RABSC_SEQ; 

; 3377 das? IF NOT SUPDATE (RAB = .CCB) THEN BASSS$STOP_IO (BASSK_ICERR_REC); 
3; 3579 i839 '¢ 

3 200 iret : Point LUBSA_RBUF_ADR to the buffer used by RMS for MOVE. 

; 38¢ 4842 CCB CLUBSA_RBUF_ADR) = .CCB CRABSL_UBFI; 

; 358 484 RETURN; 

3; 3584 4844 ND; ! End of BASSSREC_UPD 


M11 
lee 1e=8ep=1984 F1E80:48 = YBASATLESRESBASRE CARO. 082; 1 
«EXTRN SYSSUPDATE 
28 «AB 


Nm 
= 
> 
@ 
=] 
o 
So 
o 
o 
So 
o 
@ 
> 
n” 
Sad 
bad 
z 
m 
o- 
oc 
<v 
ro 


9 36(CCB), 40(CCB) 
22. AB 50 B80 5 MOVW COUNT $4(CCB) 
16 AB 94 9 CLRB (CCB) 
5B DD C PUSHL ce 
000000006 00 gi F 9005 CALLS #1, SYSSUPDATE 
A 0 €8 0001 BLBS =O, ‘1 
E 01 CE 00018 MNEGL #1. =-(SP) 
000000006 00 01 FB 0001 CALLS #1. BAS$$STOP_10 
EC AB 24 AB DO 00022 1$ MOVL 36(CCB), -20(TCB) 
05 0002 RSB 


; Routine Size: 40 bytes, Routine Base: _BASSCODE + 0(39 


; 3585 4845 1 


N11 
BASSSREC_PROC 16-Sep-1984 01:01: AX-11 Bliss-32 V4.0-74 P 99 
att ereee13be $1848 = FANSAT Sk sege ze etl ks. 29 38) 
; 3587 4846 1 GLOBAL ROUTINE BASSSREC_RSE ! RESTORE ( ial) j 
38s ‘ cf A URE UE RASSSREC. ESTORE (sequential) to beginning of file 
: 3590 4 rk 1 !+4 
: 331 4830 i FUNCTIONAL DESCRIPTION: 
: 298 4852 1: Rewind the file. If successful then return; otherwise, signal a fatal 
3; 3594 4855 1! error. 
: 3595 tbee ii 
; 3596 4855 1 | FORMAL PARAMETERS: 
: 3597 4856 ii . 
fea] we 
: 3600 4859 1! IMPLICIT INPUTS: 
> 3601 tbe0 ii 
eh re 7 
; 3606 abs IMPLICIT OUTPUTS: 
; 3606 4865 1 RABSB_RAC record access field 
; 3608 4867 1 | ROUTINE VALUE: 
: 3609 4868 1! 
Ee 0 ee 
; 361¢ 4871 SIDE EFFECTS: 
: 3614 4873 1 | SIGNA RMS 
: 3615 4874 1 ine MA Oy TN ervers 
: 3616 4875 1 
RE Bien 
> 3619 4878 EXTERNAL REGISTER 
3 3620 4879 CCB: REF BLOCK C, BYTE); | 
So tes 
: 365 488 i Set the record access field in the RAB to sequential. Perform the REWIND. 
3; 3624 488 ! If RMS returns a failure status, signal the error. 
: 3658 tbas a 
; 3627 4886 CCB CRABSB_RAC) = RABSC_SEQ; 
; 5659 4888 ! IF NOT SREWIND (RAB = .CCB) THEN BASS$S$STOP_10 (BASSK_IOERR_REC); 
: 3631 4890 RETURN; 
: 3632 4891 END; ! End of BASSSREC_RSE 
.EXTRN SYSS$REWIND 
1E AB 94 00000 BASSSREC_RSE:: 
TLRB»=s- 30 CCB) > 4886. 
5B DD 00003 PUSHL (CCB + 4888 
000000006 00 or Fe 90005 CALLS #1, SYSSREWIND : 
A 0 €8 0000¢ BLBS RO. 1$ : 
a 01 CE 0000F MNEGL #1. =(SP) : 
j 
| 


BPMs Iie ada es eas oases eel SNe 


| 
BASSSREC_PROC 


12 
18-5¢ =1984 01:01: AX-11 Bliss-32 Pp 8 
12n80p-13be 94 :8:48 = YONA ObheSaRSeteRo 652.1 age 53) : 
000000006 00 01 FB 00012 CALLS #1, BAS$$STOP_IO : 
05 00019 1$: RSB + 4891 


3; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0C61 


; 3633 4892 1 


a 
. 
° 
o 
. 
a 
. 
a 
© 
o 
a 
* 
o 
. 
@ 
. 
e 
. 
o 
7 
e 
. 
e 
© 
6 
© 
o 
° 
a 
. 
e 
° 
. 
e 
e 
. 
e 
2 
e 
° 
e 
7 
e 
. 
° 
+ 
° 
. 
o 
. 
e 
° 
e 
. 
a 
. 
eo 
o 
o 
. 
e 
. 
e 
. 
ao 
+ 
o 
7 
. 
> 
oe 
7 
e 
. 
e 
. 
e 
. 
o 
. 
e 
o 
. 
° 
@ 
o 
_ 
° 
a 
. 
e 
. 
e 
. 
° 
8 
. 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
° 


—_—_-_- 


12 
BASSSREC_PROC 1-56 -1984 01:01: AX-11 Bliss-32 V4.0-74 Page 101 
1-095 12-8071 382 94:95:48 EBASRTL~SRe BASRECPRO.B52;1 7 (39) 
3 46893 1 GLOBAL ROUTINE BASSSREC_RIN ( ! RESTORE (indexed) to beginning of file 
; : Be ! KEY_NO) : JSB_REC_IND NOVALUE = 
; 4 38 1 44 
; Z 144 : FUNCTIONAL DESCRIPTION: 
3 4899 1! Rewind the file. If successful then return; otherwise, signal a fatal 
; 4900 1! error. 
: 4901 1! 
: r)4' : FORMAL PARAMETERS: 
; 4906 1! KEY_NO.rl.v key of reference 
; 4905 1! 
; $208 1 ! IMPLICIT INPUTS: 
; 4907 1! 
; 4908 1! NONE 
; 4909 1! 
: 4910 1 ! IMPLICIT OUTPUTS: 
3 4911 1! 
sai§ 1; RABS$B_KRF key of reference 
3 4915 1! RABS$B_RAC record access field 
; 3656 4914 1! 
3 4915 1 ! ROUTINE VALUE: 
; 4916 1! 
3 4917 1! NONE 
; 0 4918 1! 
3 4919 1! SIDE EFFECTS: 
3 $088 4920 1! 
3 4921 1! SIGNALS any RMS errors 
BS Bey 
3 5 49 1 
3; 3666 4924 BEGIN 
3; 3667 4925 
; 3668 49 $ EXTERNAL REGISTER 
3 308? 49 CCB : REF BLOCK C, BYTE); 
3 0 4928 
; 3671 4929 '¢ 
: 1 4930 ' Set the key of reference . 
3; 367 4931 ! Set the record access field in the RAB to key. Perform the REWIND. 
3; 3674 $336 ! If RMS returns a failure status, signal the error. 
3; 3675 49 t= 
3 76 4934 
3; 3677 4935 CCB CRABSB_KRFJ) = .KEY_NO; 
: 3678 4936 CCB CRABSBRAC) = RABST_KEY; 
; rth 4 IF NOT SREWIND (RAB = .CCB) THEN BASS$STOP_IO (BASS$K_IOERR_REC); 
5 one 4940 RETURN; 
: 4941 END; ! End of BASSS$REC_RIN 
35 AB 50 90 00000 BASSSREC_RIN:: 
MOVB KEY_NO, 53(CCB) : $232 
1E AB 01 90 00004 move = #1," 30 CCB) : 4936 


2 


1 

| BASSSREC_PROC 16- ep-1984 01:01: AX-11 Bliss-32 V4.0-74 Page 102 
485 = 1 =35p- 1982 97 :9h:48 BASRTL SREIBASRECPRO. 882; 1 : 595 
B 0D 00008 PUSHL (CCB : ; 4938 

000000006 60 if Fe B00, CALLS #1, SYSSREWIND 5 

A 0 € 011 BLBS RO, 1$ : 

7E 01 CE 00014 MNEGL #1, =(SP) 3 

000000006 00 01 FB 00017 CALLS #1, BAS$$STOP_10 3 
05 OOO1E 18: RSB 3 4941 


; Routine Size: 31 bytes, Routine Base: _BASSCODE + 0C7B 


; 3684 4942 1 


BASSSREC_PRO 
oe 


oS 
SS 


nm oe 


SN NNN 
MMMM 3 2 2 
WDONOUSWN “SO OONOUSWN—O 


MN 


Be Se Ge Oe Se Oe Ge Se Ge Fe Fe Sse Ge Ge Se Ss Ge Ge Se Ge Ge Ge Se Ge Ge Se Se Se Ss Ge Ge Gs Se Se Se Se Se Geese Bs Se Se Se Se eees 
WIAA AWWA AAA NANA ANNI 


AANNN 
Ww 
_ 


194) 


De ee eek ek 

Qoooooese 
FISTS E 
OOWONOV EWN —OO° 


oun 


= PNOINIPIPIAIPINPIPINIPIPIDINPOIYIDD ot = ot 9 SS 


12 
yE-Sep-1984 01:01:12 yayett BLisg=52_ v4. 


GLOBAL ROUTINE BASSSREC_SSE ! SCRATCH (sequential) a record 


: JSB_RECO NOVALUE = 
1o4 


i FUNCTIONAL DESCRIPTION: 


Lok as this file. If successful then return; otherwise, signal a fatal 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
RABS$B_RAC record access field 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
SIGNALS any RMS errors 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE]; 


'¢ 
! Set the record access field in the RAB to sequential. Perform the TRUNCATE. 
If RMS returns a failure status, signal the error. 

CCB CRABSB_RAC] = RABSC_SEQ; 

IF NOT STRUNCATE (RAB = .CCB) THEN BASSSSTOP_IO (BASSK_IOERR_REC); 

RETURN; 
END; ! End of BASSS$REC_SSE 


-EXTRN SYSSTRUNCATE 


1E AB 94 00000 BASSSREC_SSE:: 
LRB 


40 
c 30(CCB) 
5B DD 90005 PUSHL (CCB 
000000006 oh gi FB 00 CALLS ai. SySSTRUNCATE 
E 01 CE b000F MNEGL #1. -(SP) 


« 


80.692:1 


Page 103 


(40) 


4983 
4985 


pAsgereC PROC 1ergeb 71382 Ff 8bike  HANSAT  ObAeSakeee Coto $2.1 P09 0) 


000000006 00 01 CALLS #1, BASS$$STOP_IO 


2 
9 18: RSB ; 4988 
; Routine Size: 26 bytes, Routine Base: _BASSCODE + O0C9A 


; 3732 4989 1 


F 


12 
BASSSREC_PROC 18-56 -1984 01:01: AX-11 Bliss-32 V4.0-74 Page 105 
mts ra 12-08-1382 1:90:48 YBASRTL SRE BARE CPRO BS2:1 . (41) 
; 37 £330 1 ROUTINE PUT_ERROR ( ' Here on error in $PUT 
: 3735 4 1 SIGRAL_OR_STOP ! specifies whether to signal or stop 
: 37 4992 1 ) : CALL CCB NOVALUE = 
3 Sf 4995 1 
3; 37 : 4994 1 !44 
3 ih, rp 4 44 : : FUNCTIONAL DESCRIPTION: 
3: 374 4997 1! Here on S$PUT errors, check for Record stream active error (RMS$_RSA) 
: 374 4998 1! If this error, WAIT until not active and try $PUT epein. 
3; 374 4999 1! This recovers from AST 1/0 which can occur out of the middle 
3 3744 3009 2. of synchronous 1/0 at non-AST level. 
3; 3745 5 3 1! 
3; 3746 28 ¢ 1 ! CALLING SEQUENCE: 
3; 374 003 1! 
; 3748 5004 1! PUT_ERROR (signal_or_stop) 
3; 3749 5005 1! 
3; 3750 2p0e 1 ! FORMAL PARAMETERS: 
: 3751 5007 1! 
3 re 5008 1! SIGNAL_OR_STOP.rl.v whether to signal or stop 
; 37 apun 1! 
3: 3754 010 1 ! IMPLICIT INPUTS: 
3; 3755 5011 1! 
3; 3756 apg 1! ccB Adr. of current LUB/ISB/RAB 
3; 3757 5015 1! 
3; 3758 5014 1 ! IMPLICIT OUTPUTS: 
3; 3759 5015 1! 
3 Hoe! 3518 : LUBSV_OUTBUF _DR Cleared to indicate clean buffer 
3; 376 5018 1 ! ROUTINE VALUE: 
3; 376 5019 1! 
3; 3764 5020 1! NONE 
: 3765 5021 1! 
3; 3766 2058 1 ! SIDE EFFECTS: 
3: 3767 0 1! f 
3 3768 024 1! SWAITs and then tries $PUT again, until success or any error 
3; 3769 5025 1! except record streanm active. 
3; 3770 e0s8 1 le 
3; 3771 5027 1 
3; 377 5028 BEGIN 
: 44 on¢e 
3; 3774 5030 EXTERNAL REGISTER 
5 he 203 CCB : REF BLOCK C, BYTE); 
3 377 50 : WHILE .CCB CRABSL_STS] EQL RMS$_RSA DO 
3; 3778 2 EGIN 
; 3779 035 WAIT (RAB = .CCB); 
3; 3780 e036 4 SPUT (RAB = .CCB) 
; 4 4 att END; 
; 378 2036 IF NOT .CCB CRABSL_STS) 
3; 3784 040 THEN 
3; 3785 041 BEGIN 
; re6 oh '¢ 
; 378 04 !' Clear the buffer dirty bit so if there is anything there BASSCLOSE won't 
3 ree epee : get confused, and try to do another PUT. 
; 3790 5046 CCB CLUBSV_OUTBUF _DR] = 0; 


uae PROC 


Oe Oe Oe ee Se ee Se ee tees 
~ ~ 
wo 
uw 


; Routine Size: 


PPPS 
lofejelelelo! 

DAMMIT & 
OUSWN—OV0O~ 


68 bytes, 


IF .SIGNAL_OR_STOP EQL K SIGNAL 
BASSSSIGNAL_I10 (BASSK_IOERR_REC) 
BASSSSTOP_I0 (BASS$K_IOERR_REC); 


ELSE 


END; 
RETURN; 
END 


000182DA_ = BF 


000000006 00 
000000006 00 


FE AB 


000000006 00 


7E 
000000006 00 


Routine Base: 


b-5e 
zeont 


Sep-1 


a 31 i86:38 


$8 


! End of PUT_ERROR 


0000 00000 PUT_ERROR: 


08 AB 0002 
14 if QOOA 
5B DD 00¢ 
01 FB 0000 
5B DD 0001 
01 FB 0001 
E2 11 3 

08 ae fs it 
0 A 00024 

046 aC 01 poose 
0B 12 0002C 
01 CE B00 
01 FB 00031 

04 00038 
01 CE ted 
01 FB 0003C 
04 00043 


-BASSCODE + OCB4 


1$: 


2$: 


4$: 


nothin 
B), #99034 


ac 
oe 


SYSSWAIT 
SYSSPUT 
CB), 4$ 
-2(CCB) 
NAL_OR_STOP, #1 


— 69 ~ M$ $$ OM — 


c 
6 


RWY BOBO RBONVOUN 
=a 


o (SP) 
#1, BASSS$SIGNAL_I0 


#1, =(SP) 
#1, BASS$S$STOP_I0 


AX-11 Oi ist -32 V4.0-7 
BASRTL. SRO} BASRECPRO. ; 231 


12 
BASSEREC PROC 1b-Sen-1984 91:98:38 — FokSate SAeSeasnecPno 6$2;1 Page 19 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


ooo 


BVA SSBVT AP AW OSB NE 


'¢ 
! Set the prompt buffer length to zero so that error followed by RESUME will not 
keep concatenating the prompt buffer. 


" CCB CRABS$B_PS2) = 0; 
: Is this INPUT LINE and only a “2 in the record? 


FRE 


DNC US wh —-OOOa~n 


WAAL A AAI 


IF .CCB CISBSB_STTM_TYPE) EQL ISBSK_ST_TY_INL AND .CCB CRABSW_RSZ) EQLU 7 AND .(.CCB CRABSL_RBFJ)<0, 8> 
EQLU BASSK~CONTROL_2 


N 
RETURN; 


3 oe 4 ! ROUTINE OF LE RnOn ‘ep } Here - areer on eee? shel : 
° 3 r r 

B04 35 - RACE tte aiiue « parameter to signal(continue) or stop 
: 38 61 1 t+ 

3 it 6 ! : FUNCTIONAL DESCRIPTION: 

; 3809 4 1 Here on SGET errors, check for Record stream active error (RMS$_RSA) 
; 3810 65 1! f this error, WAIT until not active and try $GET opein. 

3; 3811 B98 | This recovers from AST 1/0 which can occur out of the middle 

3 aig ot : of synchronous 1/0 at non-AST Level. 

: B14 6 9 t CALLING SEQUENCE: 

; 816 4 JSB GET_ERROR () 

; 818 S078 i FORMAL PARAMETERS: 

> 3820 5075 1 | NONE 

3; 3821 2076 1! 

3 Hs ap ee : IMPLICIT INPUTS: 

; 3896 ta ' ccB Adr. of current LUB/ISB/RAB 

; 826 2081 { IMPLICIT OUTPUTS: 

: 828 S088 i ROUTINE VALUE: 

3; 38 5085 1: NONE 

3; 3831 2086 Zz 

: ty apee : SIDE EFFECTS: 

: sae 5089 1! If this is am INPUT LINE and a “2 error, then just return and it will 
: 3835 5090 1! be handled above. 

; 3836 5091 1! SWAITS and then tries $GET again, until success or any error 

3 sets 044 ' } except record streanm active. 

3 3839 09% 17 

3 rk yee BEGIN 

; B42 

3; 384 

: 3844 

: 3845 

3 3846 

o ' 


et ws ss = ss 


0.0900 G0 09 G9 Go C0 Co 
PAD AANA 


Wn 
nw 


pegs ye 


33333 


UEWN—OO@ 


SEESES 
uw 
io Wnr—O”o 
DUPVIVIVIUIVIVIVLIVLIVSVSVSVSIVSTSVSIISISTI 


SANNA 
ee a a a a 


Se Se Ge Se Ge Ge Ge Se eee Ge Se He Se Se Se Se Se Se tee 


Hs at 


"SO DONOUNE WN" OVONOUS 


Fos 


=NIDRIPIPIPINININIPINIPINININININD F Ww 


3; Routine Size: 86 bytes, 


; 3880 5135 


; 3881 51 


1 END 
1 


12 
1b-S0 -1984 01:01: AX-11 Bliss- 
14-Sep-1984 P8038 = eXSRTe SRE Sa 
CB CRABSL_STS] EQL RMS$_RSA DO 
(RAB = .CCB); 
(RAB = .CCB) 


IF NOT .CCB CRABSL_STS) 
THEN 


+ 
Check the input parameter to see if we should signal or stop. 
ud «SIGNAL_OR_STOP EQL K_SIGNAL 


cL sEOASSSSIGNAL.10 (BASSK. IOERR_REC) 


BASSS$STOP_IO (BASSK_IOERR_REC); 
RETURN; 
END; ! End of GET_ERROR 
0000 00000 GET_ERROR: : 
«WORD Save nothing 
34 AB 94 0000 CLRB 52(CCB) 
20 FF71 CB 91 0000 CMPB -143(CCB), #32 
OC 12 OO00A BNEQ 1$ 
01 22 AB Bi 0000C CMPW 34(CCB), #1 
06 12 00010 BNEQ 1$ 
1A 28 B 91 00012 CMPB a40(CCB), #26 
D 13 4H} BEQL 4$ 
000182DA_ = =F 08 AB 01 00018 1$: CMPL 8(CCB), #99034 
14 12 00020 BNEQ 2s 
5B DD 00022 PUSHL CCB 
000000006 00 01 FB 00024 CALLS #1, SYSS$WAI1 
5B DD 00028 PUSHL CCB 
000000006 00 01 FB 00020 CALLS #1, SYSSGET 
E2 11 000 BRB 1$ 
1B 08 AB €E8 00036 2$ BLBS 8(CCB), 4$ 
01 046 AC } $5 A CMPL 9 R08 S80? #1 
OB 12 BNE $ 
7E 01 CE 0004 MNEGL #1, -(SP) 
00000000G 00 01 FB 0004 CALLS #1, BASSS$SIGNAL_10 
04 QOO4A RET 
7E 01 CE 00048 3$ MNEGL #1, -(SP) 
000000006 00 01 FB peek CALLS #1, BAS$$STOP_10 
04 00055 4$ RET 


Routine Base: _BASSCODE + OCF8 


32 
AS 


V4. 
RECP 


0-74 
RO.B52;1 


roe 1s 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se See Ge Ge Se Se Be Be Be Be 


BASSSREC_PROC 16-56-1984 91: 9 3 AX-11 Blis atis 32 V4.0-74 Page 1 
1-095 6: ASREC 


4-Sep-1 BASRTL.SRC ECPRO.B52;1 (42) | 
: 3882 5137 0 ELUDOM | 
BAssenec ue ves BASSSREC_WSLO 
BASSSREC_WF 1== BASSSREC_WSL1 
BASSSREC_WFO== BASSSREC_WSLO 
; PSECT SUMMARY 
3 Name Bytes Attributes 
> _BASSDATA QVEC. WRT. RD .NOEXE.NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
3 —BASSCODE 3408 NOVEC *NOWRT. RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: eccce “== Symbols -------- Pages Processing 
3 File Total ioaded Percent Mapped Time 
> _$255S$DUA28:CSYSLIBISTARLET.L32;1 9776 44 0 581 00:01.2 
: COMMAND QUALIFIERS 
: PL ISS/CHECR SCE TELD, INE TIAL OPT SALLE }/MOTRACE/L ISL 158 :BASRE CPRO/OBJ=0B18 BASRECPRG MSRC$:BASRECPRO/UPDATE=(ENH$:BASRECPRO 
Size: 3397 code + 15 data bytes 
un Time 01:16. . 


le Tee: OF: sy" 
Lines/CPU Min: 4014 
Losenee/ (Atta: 26026 
ry Used: 249 pages 
Compiiation Complete 
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